Sub dural()
Set r =
Range("F67,F73,F79,F85,F91,F97,F103,F109,F115,F121 ,F127,F133,F139,F145")
MsgBox (r.Address)
Set Target = ActiveCell
If Intersect(Target, r) Is Nothing Then
' do something
Else
'do something else
End If
End Sub

--
Gary''s Student - gsnu200846


"Leiprecht" wrote:

How do you use If Target.Address = _____ Then for more than one cells.

The cells I want are
F67 Or F73 Or F79 Or F85 Or F91 Or F97 Or F103 Or F109 Or F115 Or F121 Or
F127 Or F133 Or F139 Or F145

Thanks for your help in advance.