Show gridlines in a worksheet

Macro Title:
Worksheet Variable:
Gridlines Display Option:
Worksheet Name:
Comment:

'

Sub Show_Gridlines()
Dim ws As Worksheet
Set ws = Worksheets("Sheet2")
'show gridlines in a worksheet named Sheet2

ws.Activate
ActiveWindow.DisplayGridlines = True

End Sub