Sub HideRowsCols()
If Application.Version < 13 Then
Columns("AA:IV").EntireColumn.Hidden = Not Columns("AA:IV").EntireColumn.Hidden
Rows("51:65536").EntireRow.Hidden = Not Rows("51:65536").EntireRow.Hidden
Else
Columns("AA:XFD").EntireColumn.Hidden = Not Columns("AA:XFD").EntireColumn.Hidden
Rows("51:1048576").EntireRow.Hidden = Not Rows("51:1048576").EntireRow.Hidden
End If
End Sub