Loop Through Worksheets

Beginner

Loops through every worksheet in the workbook and displays the sheet name.

Sub LoopThroughSheets()
  Dim ws As Worksheet
  For Each ws In ThisWorkbook.Worksheets
    MsgBox "Sheet Name: " & ws.Name
  Next ws
End Sub

RELATED MACROS IN AUTOMATION & VBA

Copies a range of cells and pastes it to a target location on the same sheet.

Sub CopyAndPaste()
  Range("A1:B10").Copy
  Range("D1").PasteSpecial Paste:=xlPasteValues
  Applicat...

Saves the active workbook into a specific folder with today’s date appended to the file name.

Sub SaveWorkbookToFolder()
  Dim folderPath As String
  folderPath = "C:\\Reports\\"
  Dim fileName ...