Subscript out of range

Serious · May 24th, 2002, 11:52 AM

What does the Runtime error 9, Subscript out of range mean in Visual Basic? And how can I fix it.

Mark O'Brien · May 24th, 2002, 11:55 AM

What line of code is it giving you this error at?

Serious · May 24th, 2002, 11:56 AM

With Worksheets("Output")
.Cells(Heading_Cell_Number, 2).Value = "Housing" & (Housing_Cell_Number - 4) & " Top"
.Cells(Data_Cell_Number, 2).Value = -(Worksheets("Input").Cells(Housing_Cell_Number, 3)) / 2 + Worksheets("Input").Cells(Housing_Cell_Number, 12)
.Cells(Data_Cell_Number + 1, 2).Value = -(Worksheets("Input").Cells(Housing_Cell_Number, 3)) / 2 + Worksheets("Input").Cells(Housing_Cell_Number, 12)
.Cells(Data_Cell_Number + 2, 2).Value = (Worksheets("Input").Cells(Housing_Cell_Number, 3)) / 2 + Worksheets("Input").Cells(Housing_Cell_Number, 12)

Serious · May 24th, 2002, 11:57 AM

At the very top

Serious · May 24th, 2002, 11:59 AM

Its a long program and it worked as I periodically tested it as I worked on it. But then it got to long and I got an error. So I divided it up into parts and I get this error at the "With" statement which had run correctly before.

May 24th, 2002, 11:55 AM	#2
Mark O'Brien MrExcel MVP Join Date: Feb 2002 Location: Columbus, OH, USA Posts: 3,519	What line of code is it giving you this error at? __________________ Mark O'Brien Columbus Ohio Celtic Supporters Club

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

May 24th, 2002, 11:52 AM	#1
Serious New Member Join Date: May 2002 Posts: 18	What does the Runtime error 9, Subscript out of range mean in Visual Basic? And how can I fix it.

May 24th, 2002, 11:56 AM	#3
Serious New Member Join Date: May 2002 Posts: 18	With Worksheets("Output") .Cells(Heading_Cell_Number, 2).Value = "Housing" & (Housing_Cell_Number - 4) & " Top" .Cells(Data_Cell_Number, 2).Value = -(Worksheets("Input").Cells(Housing_Cell_Number, 3)) / 2 + Worksheets("Input").Cells(Housing_Cell_Number, 12) .Cells(Data_Cell_Number + 1, 2).Value = -(Worksheets("Input").Cells(Housing_Cell_Number, 3)) / 2 + Worksheets("Input").Cells(Housing_Cell_Number, 12) .Cells(Data_Cell_Number + 2, 2).Value = (Worksheets("Input").Cells(Housing_Cell_Number, 3)) / 2 + Worksheets("Input").Cells(Housing_Cell_Number, 12)

May 24th, 2002, 11:57 AM	#4
Serious New Member Join Date: May 2002 Posts: 18	At the very top

May 24th, 2002, 11:59 AM	#5
Serious New Member Join Date: May 2002 Posts: 18	Its a long program and it worked as I periodically tested it as I worked on it. But then it got to long and I got an error. So I divided it up into parts and I get this error at the "With" statement which had run correctly before.