H
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
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