Type Mismatch error & subscript out of range error

Greetings all,

I'm having trouble with the following routine. If I run it as shown below, I
get a runtime error 9, "Subscript out of range." If I change the "dim"
statement to "Dim i(5) as Integer", I get a "type mismatch" error. Can
anyone help me with this?

Thanks!

Jeff

Sub DTRA()
Dim i As Integer

For i = 1 To 5
Workbooks("Test").Worksheets("Sheet2").Cells(i, 1) = _
Workbooks("Test").Worksheets("Sheet1").OLEObjects _
("Optionbutton" & i).Object.Value
Next i

End Sub

I guess it is the workbook

Sub DTRA()
Dim i As Integer

For i = 1 To 5
Workbooks("Test.xls").Worksheets("Sheet2").Cells(i, 1) = _
Workbooks("Test.xls").Worksheets("Sheet1").OLEObjects _
("Optionbutton" & i).Object.Value
Next i

End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Jeff Wright" <jeffwright@cox.net> wrote in message
news:bVohe.40944$_K.39114@fed1read03...
> Greetings all,
>
> I'm having trouble with the following routine. If I run it as shown below,
I
> get a runtime error 9, "Subscript out of range." If I change the "dim"
> statement to "Dim i(5) as Integer", I get a "type mismatch" error. Can
> anyone help me with this?
>
> Thanks!
>
> Jeff
>
> Sub DTRA()
> Dim i As Integer
>
> For i = 1 To 5
> Workbooks("Test").Worksheets("Sheet2").Cells(i, 1) = _
> Workbooks("Test").Worksheets("Sheet1").OLEObjects _
> ("Optionbutton" & i).Object.Value
> Next i
>
> End Sub
>
>

Hmmm, I wasn't looking for the blatantly obvious. Thanks for your quick
response, Bob. Guess I should have another cup of coffee before proceeding
with further work.

Jeff


"Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message
news:efF459JWFHA.2448@TK2MSFTNGP12.phx.gbl...
>I guess it is the workbook
>
> Sub DTRA()
> Dim i As Integer
>
> For i = 1 To 5
> Workbooks("Test.xls").Worksheets("Sheet2").Cells(i, 1) = _
> Workbooks("Test.xls").Worksheets("Sheet1").OLEObjects _
> ("Optionbutton" & i).Object.Value
> Next i
>
> End Sub
>
>
> --
>
> HTH
>
> RP
> (remove nothere from the email address if mailing direct)
>
>
> "Jeff Wright" <jeffwright@cox.net> wrote in message
> news:bVohe.40944$_K.39114@fed1read03...
>> Greetings all,
>>
>> I'm having trouble with the following routine. If I run it as shown
>> below,
> I
>> get a runtime error 9, "Subscript out of range." If I change the "dim"
>> statement to "Dim i(5) as Integer", I get a "type mismatch" error. Can
>> anyone help me with this?
>>
>> Thanks!
>>
>> Jeff
>>
>> Sub DTRA()
>> Dim i As Integer
>>
>> For i = 1 To 5
>> Workbooks("Test").Worksheets("Sheet2").Cells(i, 1) = _
>> Workbooks("Test").Worksheets("Sheet1").OLEObjects _
>> ("Optionbutton" & i).Object.Value
>> Next i
>>
>> End Sub
>>
>>
>
>

Hi Jeff,

make sure it is black and it is strong ... :-)

Bob

"Jeff Wright" <jeffwright@cox.net> wrote in message
news:tWphe.40947$_K.2193@fed1read03...
> Hmmm, I wasn't looking for the blatantly obvious. Thanks for your quick
> response, Bob. Guess I should have another cup of coffee before proceeding
> with further work.
>
> Jeff
>
>
> "Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message
> news:efF459JWFHA.2448@TK2MSFTNGP12.phx.gbl...
> >I guess it is the workbook
> >
> > Sub DTRA()
> > Dim i As Integer
> >
> > For i = 1 To 5
> > Workbooks("Test.xls").Worksheets("Sheet2").Cells(i, 1) = _
> > Workbooks("Test.xls").Worksheets("Sheet1").OLEObjects _
> > ("Optionbutton" & i).Object.Value
> > Next i
> >
> > End Sub
> >
> >
> > --
> >
> > HTH
> >
> > RP
> > (remove nothere from the email address if mailing direct)
> >
> >
> > "Jeff Wright" <jeffwright@cox.net> wrote in message
> > news:bVohe.40944$_K.39114@fed1read03...
> >> Greetings all,
> >>
> >> I'm having trouble with the following routine. If I run it as shown
> >> below,
> > I
> >> get a runtime error 9, "Subscript out of range." If I change the "dim"
> >> statement to "Dim i(5) as Integer", I get a "type mismatch" error. Can
> >> anyone help me with this?
> >>
> >> Thanks!
> >>
> >> Jeff
> >>
> >> Sub DTRA()
> >> Dim i As Integer
> >>
> >> For i = 1 To 5
> >> Workbooks("Test").Worksheets("Sheet2").Cells(i, 1) = _
> >> Workbooks("Test").Worksheets("Sheet1").OLEObjects _
> >> ("Optionbutton" & i).Object.Value
> >> Next i
> >>
> >> End Sub
> >>
> >>
> >
> >
>
>