"Run Time error '9' - Subscript out of range"

clares

Well-known Member
Joined
Mar 14, 2002
Messages
557
Hi All

I am stepping through my code and I get to this line:

Set HelpSheet = ThisWorkbook.Sheets(HelpSheetName)

and it gives an error message:

"Run Time error 9 - Subscript out of range".

I have had a look at the help file, but dont really understand it.

Thanks in advance for any help

Kindest Regards
 

Excel Facts

Move date out one month or year
Use =EDATE(A2,1) for one month later. Use EDATE(A2,12) for one year later.
Hi Peter,

Please re-confirm the variable HelpSheetName.
Does it have a value as string? :)
 
Upvote 0
Option Explicit
Dim TopicCount As Integer
Dim CurrentTopic As Integer
Dim HelpSheet As Worksheet

Const AppName As String = "Clares Automated Pricing System"
Const HelpSheetName As String = "HelpSheet"
Const HelpFormCaption As String = AppName

String value.

Kind Regards
 
Upvote 0
OK, OK. Your code works in my excel as follows.
...So, PLEASE check the name of the worksheet (HelpSheet),
if any space containd.
Eg,
(HelpSheet )
( HelpSheet)

Code:
Option Explicit
Dim TopicCount As Integer
Dim CurrentTopic As Integer
Dim HelpSheet As Worksheet

Const AppName As String = "Clares Automated Pricing System"
Const HelpSheetName As String = "HelpSheet"
Const HelpFormCaption As String = AppName

Sub test()
    Dim HelpSheet As Worksheet
    Set HelpSheet = ThisWorkbook.Sheets(HelpSheetName)
End Sub
 
Upvote 0
Hi Colo

Thanks for that. I have checked my code with yours. But mine still brings the error up. I have checked and renamed the worksheet to ensure that there are no spaces in the name, either brgining and end!

Kindest Regards
 
Upvote 0
When you get to the line that bombs out have you checked that the value of HelpSheetName is still "HelpSheet" ?

Just wondering if somewhere esle in the code might be modifying it.

Peter
 
Upvote 0
Hi there

When I glide my cursor over the row of code which is highlighted in yellow:

"Set HelpSheet = ThisWorkbook.Sheets(HelpSheetName)"

it display the following text

HelpSheet=Nothing,
ThisWorkbook.Sheets(HelpSheetName) <subscript out of range>
HelpSheetName = "HelpSheet"

Kindest Regards
 
Upvote 0
Hi there

Sorry the previous should have read:

When I glide my cursor over the row of code which is highlighted in yellow:

"Set HelpSheet = ThisWorkbook.Sheets ( HelpSheetName )"

it display the following text

HelpSheet=Nothing,
ThisWorkbook.Sheets(HelpSheetName) <subscript out of range>
HelpSheetName = "HelpSheet"

Kindest Regards
 
Upvote 0
Hi there

Sorry the previous should have read, ok this doesn;t like the less than or greater than brackets which subscript appears in:

When I glide my cursor over the row of code which is highlighted in yellow:

"Set HelpSheet = ThisWorkbook.Sheets ( HelpSheetName )"

it display the following text

HelpSheet=Nothing,
ThisWorkbook.Sheets(HelpSheetName) subscript out of range
HelpSheetName = "HelpSheet"

Kindest Regards
 
Upvote 0
I have just added colo's code to a new spreadsheet and it works fine for me. Can you post more of the code that you are actualy running?

Peter
 
Upvote 0

Forum statistics

Threads
1,213,530
Messages
6,114,163
Members
448,554
Latest member
Gleisner2

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top