Sub Macro1()
'
' Macro1 Macro

'
For i = 1 To Sheets.Count
Sheets(i).Visible = True
Sheets(i).Select
Selection.EntireColumn.Hidden = False *
Selection.EntireRow.Hidden = False
If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If
Cells.Select
Selection.Columns.AutoFit
Next i
End Sub

When I run this macro against a sheet that has a comment in one of the
cells, in a column that's not hidden, I get "Runtime Error 438: Object
doesn't support this property or method" on the statement with the *.
I don't get the error with columns that don't have comments, even if
they aren't hidden.

Does anyone have any ideas?