VBA Codes

Cells.EntireColumn.AutoFit

Cells.EntireRow.AutoFit

ActiveSheet.Protect Password:="1234"

ActiveSheet.Unprotect Password:="1234"

Dim cell As Range
For Each cell In Selection
If Not IsEmpty(cell.Value) Then
cell.Value = UCase(cell.Value)
End If
Next cell

Selection.Value = LCase(Selection.Value)

Dim cell As Range
For Each cell In Selection
cell.Value = Date
Next cell

Dim cell As Range
For Each cell In Selection
cell.Value = Time
Next cell

Cells.ClearFormats

Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> ActiveSheet.Name Then
ws.Visible = xlSheetHidden
End If
Next ws

Dim ws As Worksheet
For Each ws In Worksheets
ws.Visible = xlSheetVisible
Next ws

Sheets.Add After:=Sheets(Sheets.Count)

Selection.Font.Name = "Calibri"
Selection.Font.Size = 12

Selection.Font.Bold = True

MsgBox "Process Complete!", vbInformation

Selection.Borders.LineStyle = xlContinuous

Cells.ClearComments

ActiveWindow.Zoom = 50

MsgBox ActiveCell.Row

MsgBox ActiveCell.Column

Rows("5:7").Insert

Rows(3).Delete

ActiveSheet.ListObjects("Data1").Range.AutoFilter field:=1, Criteria1:="*" & [C2] & "*", Operator:=xlFilterValues

Function GetColorCount(CountRange As Range, CountColor As Range)
Dim CountColorValue As Integer
Dim TotalCount As Integer
CountColorValue = CountColor.Interior.ColorIndex
Set rCell = CountRange
For Each rCell In CountRange
If rCell.Interior.ColorIndex = CountColorValue Then
TotalCount = TotalCount + 1
End If
Next rCell
GetColorCount = TotalCount
End Function

Sub InsertPictures()
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
xColIndex = Application.ActiveCell.Column
If IsArray(PicList) Then
xRowIndex = Application.ActiveCell.Row
For lLoop = LBound(PicList) To UBound(PicList)
Set Rng = Cells(xRowIndex, xColIndex)
Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
xRowIndex = xRowIndex + 1
Next
End If
End Sub