Subscript out of range when selecting worksheet...

  • Thread starter Thread starter jfcby
  • Start date Start date
J

jfcby

Hi,

Why does the script below give me the "subscript out of rage error"
when tring to select a worksheet?

Sub ActvateWorksheet()
'Activate worksheet
Worksheets("Sheet8").Activate
End Sub

In the help file I found:

"The following example uses the Activate method to activate Sheet1"
Sub ActvateWorksheet()
Worksheets("Sheet1").Activate
End Sub

But, when I run the macro it gives me the above error.

Thank you for your help,
jfcby
 
The error basically means that the active
workbook doesn;t have a worksheet called
"Sheet 8". The mostly like explanation I
can think of is that a different workbook is active,
which does not have a Sheet8. If that's the case,
you need to activate the correct workbook first:

Workbooks("MyWorkbook.xls").Activate
Worksheets("Sheet8").Activate

Andrew
 
Do you have a sheet named 'Sheet1' or a sheet named 'Sheet8'? The code is
looking for an object that doesn't exist.

Something like this:
Workbooks("Book1.xls").Sheets("Sheet1").Range("A1")
But you don't need the Workbooks("Book1.xls") part if you are just
referencing sheets in the active Workbook.

HTH,
Ryan---
 
Andrew,

Only 1 workbook is open. It has a Sheet8. And this macro does not work
either:

Sub ActvateWorksheet()
'Activate worksheet
Workbooks("WT_Functions_2009.xls").Activate
Worksheets("Sheet8").Activate
End Sub

Thank you for your help,
Frankie
 
Make sure your worksheet names do not have any spaces in them. Here is an
easy way to see... run this code line in the Immediate window

For Each S In Worksheets:? "<" & S.Name & ">":Next

It will list out each worksheet name with angle brackets around them... the
angle brackets should butt up against the worksheet name... if it doesn't,
then you have one or more spaces in the worksheet name... rename these
sheets to what they should be and then run you code again.
 
Hi,

Thanks everyone for your help.

I created a new workbook and the macro below works great. Now I'm
going to troubleshoot my existing workbook and find out why it will
not activate the worksheets.

Sub ActvateWorksheet()
'Activate worksheet
Worksheets("Sheet8").Activate
End Sub


Thanks,
jfcby
 
Back
Top