Execute macro when active cell is in a defined area

  • Thread starter Thread starter Spuds Glorious Spuds
  • Start date Start date
S

Spuds Glorious Spuds

Hi all

I am completely inept at writting code for macros - most of my stuff is for
repetitive task such as cut copy & paste
For one such macro is there any way a code can be added so that the macro
will only execute if the active cell is in a defined range say A1:G10 but if
the active cell is not in this range go make cell A1 active??

Much appreciated
 
Option Explicit
Sub testme()

if intersect(activecell, activesheet.range("a1:g10")) is nothing then
activesheet.range("a1").select
exit sub
end if

'rest of macro here

end Sub

(Untested, uncompiled--watch for typos)
 
Sub dural()
If Intersect(ActiveCell, Range("A1:G10")) Is Nothing Then
Range("A1").Select
Else
MsgBox ("do your thing")
End If
End Sub


Substitute the body of your own code where the MsgBox is.
 
Back
Top