If Not Application.Intersect(ActiveCell, _
ActiveSheet.Range("C8")) Is Nothing Then

Stop
End If


--
joel
------------------------------------------------------------------------
joel's Profile: http://www.thecodecage.com/forumz/member.php?userid=229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=151276

Microsoft Office Help