Macro to Count Worksheets in Excel


Count the total number of Worksheets in a Workbook


Sub CountSheets()
MsgBox Application.Sheets.Count
End Sub

Count number of Rows and Columns in a selection


Sub CountRowAndColumns()
MsgBox "Rows " & Selection.Rows.Count _
& vbCrLf & "Columns " & Selection.Columns.Count
End Sub

How to use codes shared here?