Object variable or With block variable not set

[JohnEOasis]

When I run the following code I get an Object variable or With block variable not set error and can not figure out why any helpl would be appriciated.

    Dim InputRange As Range
    Dim OutputRange As Range
    
    Set InputRange = Sheets("Misc").Range("A18:E18")
    Set OutputRange = Sheets("Rec").Range("Q9:Y9")
     Do Until InputRange.Item(1, 1).Value = ""
        If InputRange.Item(1, 1).Value = Range("A1").Value Then
            OutputRange.Item(1, 1).Value = InputRange.Item(1, 2).Value
            OutputRange.Item(1, 3).Value = InputRange.Item(1, 4).Value
            OutputRange.Item(1, 5).Value = InputRange.Item(1, 5).Value
            Set InputRange = InputRange.Offset(1, 0)
            Set OutputRange = OutputRange.Offset(1, 0)
        Else
        Set InputRange = InputRange.Offset(1, 0)
        End If
    Loop

 

[MajP]

Which line fails?

 

[JohnEOasis]

it fails on the first output line

 OutputRange.Item(1, 1).Value = InputRange.Item(1, 2).Value

 

[SkipVought]

OutputRange.Cells(1, 1).Value = InputRange.Cells(1, 2).Value

Skip,
[sup]Don't let the Diatribe...
talk you to death![/sup][sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[JohnEOasis]

Thank you for your post.

I tried it and I still am getting the same error.

 

[xlbo]

Works fine for me as is

Is there other code that follows the snippet you've posted?

Rgds, Geoff

We could learn a lot from crayons. Some are sharp, some are pretty and some are dull. Some have weird names and all are different colours but they all live in the same box.

Please read FAQ222-2244 before you ask a question

 

[JohnEOasis]

I cannot believe I missed this... It was on the worksheet change event; the code changes the event = endless loop! Thank you for all your help this was just a boneheaded mistake and I did not even think it all the way through.

 

[xlbo]

no probs - must admit I thought the same as Skip at 1st - never used .Items to refer to subsets of a range - always .Cells

Think I'll just stick to cells meself though!

I assume you know the fix..l.

Application.enableevents = false

code

application.enableevents = true

Rgds, Geoff

We could learn a lot from crayons. Some are sharp, some are pretty and some are dull. Some have weird names and all are different colours but they all live in the same box.

Please read FAQ222-2244 before you ask a question