Show row and column headings in a specific worksheet

Macro Title:
Row and Column Display Headings Option:
Worksheet Name Variable:
Input Box Caption:
Comment:

'

Sub Show_Row_Column_Headings()
'declare a variable

Dim SheetName As Variant

SheetName = InputBox("Enter the name of the worksheet in which you want to show row and column headings")
Worksheets(SheetName).Activate
ActiveWindow.DisplayHeadings = True

End Sub