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!
--
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

--
Thanks,
Sherry


"Sherry" wrote:

> 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!
> --
> 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

--
jb


"Sherry" wrote:

> 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
>
> --
> Thanks,
> Sherry
>
>
> "Sherry" wrote:
>
> > 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!
> > --
> > Thanks,
> > Sherry

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


"john" wrote:

> 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
>
> --
> jb
>
>
> "Sherry" wrote:
>
> > 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
> >
> > --
> > Thanks,
> > Sherry
> >
> >
> > "Sherry" wrote:
> >
> > > 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!
> > > --
> > > Thanks,
> > > Sherry