VBA to unfilter all columns

[gheyman]

Is there a way to unfilter columns using code? I have code that chokes if the user has any filters on. I want to in-filter all before my code runs.

 

[Tetra201]

Maybe

...
ActiveSheet.AutoFilterMode = False
...

 

[ZVI]

Try for columns: ActiveSheet.Columns.Hidden = False
For rows: ActiveSheet.Rows.Hidden = False
For both: ActiveSheet.Cells.Hidden = False

 

[ZVI]

My ActiveSheet.Cells.Hidden = False is wrong
More correct:

Sub UnhideColumns()
  ActiveSheet.Columns.Hidden = False
End Sub
 
Sub UnhideRows()
  If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
  ActiveSheet.Rows.Hidden = False
End Sub
 
Sub UnhideAll()
  UnhideColumns
  UnhideRows
End Sub

 

[gheyman]

Thanks