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


On 3 Aug, 16:05, jfcby wrote:
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

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---
--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.


"jfcby" wrote:

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

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.

--
Rick (MVP - Excel)


"jfcby" wrote in message
...
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

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