Runtime error 1004

[Zippy]

Can anyone help me as to why I get a run time error 1004 - Insert method of
Range Class failed
when this bit of code reaches the "Selection" line?

Sub compare()

Row = 1
Do
If (Cells(Row, 1) <> Cells(Row, 4)) Then
Cells(Row, 4).Select
Selection.Insert shift:=x1down
Else
Row = Row + 1
End If
Loop Until Row = 20

End Sub

[yngve]

hi

change shift:=x1Down to shift:=xlDown

regards yngve

[Joel Berry]

Looks like it should be "xlDown" instead of "x1Down" -- use an "l" instead of
a "1"

"Zippy" wrote:

> Can anyone help me as to why I get a run time error 1004 - Insert method of
> Range Class failed
> when this bit of code reaches the "Selection" line?
>
> Sub compare()
>
> Row = 1
> Do
> If (Cells(Row, 1) <> Cells(Row, 4)) Then
> Cells(Row, 4).Select
> Selection.Insert shift:=x1down
> Else
> Row = Row + 1
> End If
> Loop Until Row = 20
>
> End Sub
>
>
>

[Zippy]

Thanks guys!! I've looked at this for so long and didn't spot that!!

Zippy

"Joel Berry" <[email protected]> wrote in message
news:[email protected]...
> Looks like it should be "xlDown" instead of "x1Down" -- use an "l" instead
of
> a "1"
>
> "Zippy" wrote:
>
> > Can anyone help me as to why I get a run time error 1004 - Insert method
of
> > Range Class failed
> > when this bit of code reaches the "Selection" line?
> >
> > Sub compare()
> >
> > Row = 1
> > Do
> > If (Cells(Row, 1) <> Cells(Row, 4)) Then
> > Cells(Row, 4).Select
> > Selection.Insert shift:=x1down
> > Else
> > Row = Row + 1
> > End If
> > Loop Until Row = 20
> >
> > End Sub
> >
> >
> >