Run time error 9 (Subscript Out Of Range)

[Heera]

Hi,

I am getting a error.

Run time error 9 on this line of code ( Windows(hirename).Activate ) I
am not able to understand it i also tried alternative code
wookbooks("Hrining Plan.xls").Activate but it is also not working.

Sub RamPlan()

Workbooks("Ramp Plan Macro.xls").Activate
Sheets("Macro").Select

Dim hirePath As String
Dim ramppath As String
Dim hirename As String
Dim rampName As String

hirePath = Range("c8").Value
ramppath = Range("c9").Value
hirename = Range("c10").Value
rampName = Range("c11").Value


Workbooks.Open ramppath & "\" & rampName
Workbooks.Open hirePath & "\" & hirename

Workbooks("Ramp Plan Macro.xls").Activate
Sheets("Macro").Select

Dim fromdate As Variant
fromdate = Range("c13").Value

Windows(hirename).Activate
Sheets("C LLC").Select
Range("A2").Select

Do Until Selection.Value = fromdate
Selection.Offset(1, 0).Select
Loop
Selection.Offset(0, 5).Select

End Sub

 

[Jon Peltier]

Assume typos in 'wookbooks("Hrining Plan.xls")' were created for our
benefit. Is hirename a hidden workbook? Is it an add-in?

You can skip all the activating and deactivating:

Workbooks.Open ramppath & "\" & rampName
Workbooks.Open hirePath & "\" & hirename

Dim fromdate As Variant
fromdate = Workbooks("Ramp Plan
Macro.xls").Sheets("Macro").Range("c13").Value
' note: Worksheets is better in most cases than Sheets (IntelliSense,
etc.)

Dim myCell As Range
Set myCell = Windows(hirename).Sheets("C LLC").Range("A2")
Do Until myCell.Value = fromdate
Set myCell = myCell.Offset(1, 0)
Loop
Set myCell = myCell.Offset(0, 5)


- Jon

 

[T Lavedas]

Hi,

I am getting a error.

Run time error 9 on this line of code ( Windows(hirename).Activate ) I
am not able to understand it i also tried alternative code
wookbooks("Hrining Plan.xls").Activate but it is also not working.

Sub RamPlan()

Workbooks("Ramp Plan Macro.xls").Activate
Sheets("Macro").Select

Dim hirePath As String
Dim ramppath As String
Dim hirename As String
Dim rampName As String

hirePath = Range("c8").Value
ramppath = Range("c9").Value
hirename = Range("c10").Value
rampName = Range("c11").Value

Workbooks.Open ramppath & "\" & rampName
Workbooks.Open hirePath & "\" & hirename

Workbooks("Ramp Plan Macro.xls").Activate
Sheets("Macro").Select

Dim fromdate As Variant
fromdate = Range("c13").Value

Windows(hirename).Activate
Sheets("C LLC").Select
Range("A2").Select

Do Until Selection.Value = fromdate
Selection.Offset(1, 0).Select
Loop
Selection.Offset(0, 5).Select

End Sub

There is not really enough information to be certain what your problem
is, but it appears that the Window named by the contents of the cell
C10 referenced does not match the Caption property of any of the
opened workbook windows.

What exactly are you trying to accomplish?

Tom Lavedas
===========
http://members.cox.net/tglbatch/wsh/

 

[Heera]

thank you Jon...it is working fine.

 

[Jon Peltier]

Post on top like everyone else, to make it easier to read.

There is not really enough information to be certain what your problem
is, but it appears that the Window named by the contents of the cell
C10 referenced does not match the Caption property of any of the
opened workbook windows.

But the OP didn't mention a problem with this line:

Workbooks.Open hirePath & "\" & hirename

- Jon