Deselect cells on multiple sheets after unhide

[Sherry]

I have the following code I use to remove the autofilters and hidden rows and
columns within a workbook. It works great. My problem is that after it runs,
the columns that were unhidden remain selected. I have more code later in the
process that won't run because there are cells selected.

Is there an easy snippet of code so that I can select cell "A2" on every
sheet in a workbook at once? I've tried a couple on my own but no luck.
Thanks!

 

[Sherry]

Oops...forgot the code. Sorry.

Sub RemoveFiltersAndHiddenRows()

Dim oWS As Worksheet

For Each oWS In ActiveWorkbook.Sheets

oWS.AutoFilterMode = False
oWS.UsedRange.Rows.Hidden = False
oWS.UsedRange.Columns.Hidden = False
Next

End Sub

 

[john]

Sherry,
see if this does what you want. Be mindful though that your code will error
if any of the sheets are protected.

Sub RemoveFiltersAndHiddenRows()

Dim oWS As Worksheet

With Application

.EnableEvents = False
.ScreenUpdating = False

End With


For Each oWS In ActiveWorkbook.Sheets

With oWS

.Activate

.AutoFilterMode = False

With .UsedRange

.Rows.Hidden = False
.Columns.Hidden = False

End With

.Range("A2").Select

End With

Next

With Application

.EnableEvents = True
.ScreenUpdating = True

End With

End Sub

 

[Sherry]

Works great! Thanks, John!
--
Thanks,
Sherry

Sherry,
see if this does what you want. Be mindful though that your code will error
if any of the sheets are protected.

Sub RemoveFiltersAndHiddenRows()

Dim oWS As Worksheet

With Application

.EnableEvents = False
.ScreenUpdating = False

End With


For Each oWS In ActiveWorkbook.Sheets

With oWS

.Activate

.AutoFilterMode = False

With .UsedRange

.Rows.Hidden = False
.Columns.Hidden = False

End With

.Range("A2").Select

End With

Next

With Application

.EnableEvents = True
.ScreenUpdating = True

End With

End Sub