Hi,

I am writing a macro for a report.

I need to navigate from one report to an another report to collect the
data. My macro gets stuck-up on this paticular code every time. (Run
time error 9, Subscript Out Of Range)

Windows("Hiring Plan.xls").Activate

I have also tried other alternatives as well. For example but
Workbooks("Hiring Plan.xls").Sheets("C LLC").Range("A2").Activate

I dont understant why it is happening. Please help.

Private 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

Dim fromdate As Variant
fromdate = Workbooks("Ramp Plan
Macro.xls").Sheets("Macro").Range("c13").Value
Windows("Hiring Plan.xls").Activate

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

Selection.Offset(0, 5).Select
If ActiveCell.Value = "" Then
Call CCTTrainer
End If

End Sub

Hi Heera, I saw your previous posting and some of the replies. When you get
that particular error message, VBA is telling you that it cannot find the
name that you are calling for one or more of the following reasons:

1. The Object does not exist.
2. The name being used to call the object is misspelled, uses the wrong
case, has spaces, don't have spaces or in some other way is different than
the actual object name.
3. The applicable file is not open.

It can be something as simple as forgetting to include the Quotation marks
for a string or, conversely, using quotation marks for a variable.

Good hunting.

"Heera" wrote:

Hi,

I am writing a macro for a report.

I need to navigate from one report to an another report to collect the
data. My macro gets stuck-up on this paticular code every time. (Run
time error 9, Subscript Out Of Range)

Windows("Hiring Plan.xls").Activate

I have also tried other alternatives as well. For example but
Workbooks("Hiring Plan.xls").Sheets("C LLC").Range("A2").Activate

I dont understant why it is happening. Please help.

Private 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

Dim fromdate As Variant
fromdate = Workbooks("Ramp Plan
Macro.xls").Sheets("Macro").Range("c13").Value
Windows("Hiring Plan.xls").Activate

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

Selection.Offset(0, 5).Select
If ActiveCell.Value = "" Then
Call CCTTrainer
End If

End Sub

But you said it was working fine, then all you did was restate the problem,
not which of the suggestions you tried that didn't work.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
Peltier Technical Services, Inc. - http://PeltierTech.com
_______


"Heera" wrote in message
...
Hi,

I am writing a macro for a report.

I need to navigate from one report to an another report to collect the
data. My macro gets stuck-up on this paticular code every time. (Run
time error 9, Subscript Out Of Range)

Windows("Hiring Plan.xls").Activate

I have also tried other alternatives as well. For example but
Workbooks("Hiring Plan.xls").Sheets("C LLC").Range("A2").Activate

I dont understant why it is happening. Please help.

Private 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

Dim fromdate As Variant
fromdate = Workbooks("Ramp Plan
Macro.xls").Sheets("Macro").Range("c13").Value
Windows("Hiring Plan.xls").Activate

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

Selection.Offset(0, 5).Select
If ActiveCell.Value = "" Then
Call CCTTrainer
End If

End Sub