Some useful VBA snippets

Unmerge all cells = Cells.UnMerge

Unhide all rows =ActiveSheet.Cells.EntireRow.Hidden = False

Unhide all columns = ActiveSheet.Cells.EntireColumn.Hidden = False


Take off autofilter = ActiveSheet.AutoFilterMode = False

Count how many worksheets in a workbook = ThisWorkbook.Sheets.Count 

Name of activeworksheet = ActiveSheet.Name

Selecting entire Table- Range("TableName[#All]").Select

Selecting Table Columns-  Range("TableName[NameOfColumn]").Select

Find and Replace- Selection.Replace What:="Thing to Replace", Replacement:="What to Replace with", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False 

Runs another procedure-  Application.Run "nameofprocedure"

Do something to every worksheet-

Sub everyWorksheet()
Dim wSheet As Worksheet

For Each wSheet In ActiveWorkbook.Worksheets
    MsgBox "This is Worsheet: " & wSheet.Name
Next wSheet

End Sub