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?