If Target.address ="$C$1" then

Your Code

End IF

If you need to do a range try

Dim R as range
Set R = Intersect(Target.address, Range("A:A"))

If R is not nothing then
Your Code
End If

HT

--
CBrin

-----------------------------------------------------------------------
CBrine's Profile: http://www.excelforum.com/member.php...fo&userid=1470
View this thread: http://www.excelforum.com/showthread.php?threadid=26323