tricky one? 1

[simoncpage]

I am using the following sub

Private Sub Worksheet_Change(ByVal Target As Range)

Dim i As Integer, j As Integer, k As Integer, l As Integer, m As Integer

If Target.Cells = Range("reviews&quot Then
-------------------------
do stuff
-------------------------

Else
End If

End Sub

When I select a select and drag it contents over a number of cells below it - I get an error mismatch with the target cell line - anything I can do to get round this???

Thanks
Simon

 

[xlbo]

Hi Simon - try this

If Target.Cells.address = Range("reviews&quot.address Then

Stopped the type mismatch error on my test wb
HTH
Geoff

 

[simoncpage]

nice one thanks xlbo that done the trick nicely!

 

[rmikesmith]

Geoff & Simon,

A warning about using the construct

If Target.Cells.Address = Range("reviews").Address Then

If you subsequently select and drag cells over the "reviews" range, it destroys this named range with the result that the above code fails (Error 1004 raised).

Regards.