Runtime error 9 - Subscript out of Range
 

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.

Runtime error 9 - Subscript out of Range
 

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


Mike

"Joe Saunders" wrote:

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.

Runtime error 9 - Subscript out of Range
 

On 26 Jul, 08:58, Joe Saunders
wrote:
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

Runtime error 9 - Subscript out of Range
 

I see the problem now, spare1 was renamed!

Thanks for your help guys.

"bony_tony" wrote:

On 26 Jul, 08:58, Joe Saunders
wrote:
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