Runtime error 9 - Subscript out of Range

[Guest]

Line is:

Sub Button76_Click()
'
' Button76_Click Macro
' Macro recorded 10/10/2005 by MarkD
'
' Keyboard Shortcut: Ctrl+r
'
Sheets("Spare1").Select
Sheets("Spare1").Copy After:=Sheets(74)
Sheets("Control").Select

End Sub

Any help hugely appreciated as always.

 

[Guest]

The code is OK so one of the sheets you are referring to is probably not
there so ' Subscript out of range'


Mike

 

[bony_tony]

Line is:

Sub Button76_Click()
'
' Button76_Click Macro
' Macro recorded 10/10/2005 by MarkD
'
' Keyboard Shortcut: Ctrl+r
'
Sheets("Spare1").Select
Sheets("Spare1").Copy After:=Sheets(74)
Sheets("Control").Select

End Sub

Any help hugely appreciated as always.

Hi,
Are you sure you have sheets named "Spare1" and"Control",and there are
more than 73 sheets in your workbook?
No to any of those will cause the error - You can't select something
that is not there....

Tony

 

[Guest]

I see the problem now, spare1 was renamed!

Thanks for your help guys.