Hide row and column headings in a specific worksheet

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

'

Sub Hide_Row_Column_Headings()
'declare a variable

Dim SheetName As Variant

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

End Sub