Unhide Sheets and clear contents question

[cagez0r]

So I have very basic code that says unhide all hidden worksheets and what I want to do next is select 4 of those specific worksheets and delete contents starting in rows 1:5000 and then bring me back to the "Shipped" worksheet in cell A1.

Below is my code but the code stops at the red bolded text line below and I get an error that says run-time error '1004': select methoid of sheets class failed

Public Sub Unhide()

Dim sh As Worksheet

Application.ScreenUpdating = False

For Each sh In ActiveWorkbook.Sheets
sh.Visible = xlSheetVisible


Sheets(Array("Shipped", "Shipped_Balls", "Open", "Open_Balls")).Select
Sheets("Shipped").Activate
Rows("1:5000").Select
Selection.ClearContents
Sheets("Shipped").Activate
Range("A1").Select

Next

Application.ScreenUpdating = True

Sheets("Order_Pace_Summary").Select
Range("BA1").Select

End Sub

When I break up the unhide sheets separate from the clearing contents portion of the code it works fine, but together i get this error

 

[VoG]

What error? Please post your code.

 

[cagez0r]

Hi VoG,

Now that I corrected my initial post with the code...any possible solutions to help me out?

 

[Jonmo1]

One or more of the sheets is hidden.

I see you have code trying to unhide all sheets..
However, you're trying to select them before they are all unhidden.
The loop unhiding the sheets needs to complete first, then do what you want..

put the Next, before the line selecting the sheets.