I want to add some code to the top of my module that will stop the code if
Cell C8 on the active worksheet is selected.

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

Specifically what do you mean by "stop the code"? If you mean to quit
the currently executing procedure and return to the caller (or to
Excel if there is no caller), use something like


If Not Application.Intersect(Selection, _
Range("C8")) Is Nothing Then
Exit Sub
End If


If you really mean Stop, as in enter debug mode, use an Assert.

Debug.Assert Application.Intersect(Selection, _
Range("C8")) Is Nothing

An Assert enters debug mode if the expression in the Assert is False.

Cordially,
Chip Pearson
Microsoft Most Valuable Professional
Excel Product Group, 1998 - 2010
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)



On Thu, 5 Nov 2009 01:11:06 -0800, "ordnance1"
wrote:

I want to add some code to the top of my module that will stop the code if
Cell C8 on the active worksheet is selected.