Run-Time Error 157121 - Application-defined or object-defined error

[Elmer_J_Fudd]

Can someone help me understand why?

Problem

This code does not work

Sub Cover()
'
ActiveWindow.ScrollWorkbookTabs Sheets:=12
Sheets("(3) Cover Sheet").Select
Range("F41").Select
End Sub

This Code does work

Sub GoTo_Tab_11()


ActiveWindow.ScrollWorkbookTabs Sheets:=12
Sheets("(11) Summary").Select
ActiveWindow.SmallScroll Down:=-135
End Sub

 

[AlphaFrog]

In the active workbook, is there a sheet named exactly "(3) Cover Sheet"?

Double-Check the spelling on the tab. Also check if the sheet name has a trailing space e.g.;
"(3) Cover Sheet "


On another note, sheets can also be selected by their position. This selects the 3rd sheet regardless of its name
Sheets(3).Select

 

[Elmer_J_Fudd]

Thank you for your willingness to help me.

I check to spelling and made sure there are no leading or trailing spaces. - Same

I saved the file in three different versions to see if that might have an effect - Same result

I re did the macro

Sub Cover_3()
' Cover_3 Macro
    ActiveWindow.ScrollWorkbookTabs Sheets:=-12
[I][COLOR=#ff0000]    Sheets(3).Select[/COLOR][/I]
End Sub
[CODE] - Same result

I just don't understand why the same code (with the exception of the sheet name) will work on the other macros but not this one.

Thanks again for your help

EJF

 

[AlphaFrog]

Maybe the real Sheet(3) is hidden and you think "(3) Cover Sheet" is Sheet(3)

Try this...

[COLOR=darkblue]Sub[/COLOR] Cover_3()
[COLOR=green]' Cover_3 Macro[/COLOR]
ActiveWindow.ScrollWorkbookTabs Sheets:=-12
[B]Sheets(3).Visible = [COLOR=darkblue]True[/COLOR][/B]
Sheets(3).Select
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]

That doesn't explain why you cannot select "(3) Cover Sheet" by name though if it's visible.