Hi

I hve this code:


Code:
--------------------
Private sub Worksheet_Selectionchange(ByVal Target As Range)

if target.address="$B$4" then
msgbox"Hello"
end if
end sub

--------------------


But I want this to work for a range of cells on the sheet, i.e.:


Code:
--------------------
Private sub Worksheet_Selectionchange(ByVal Target As Range)

if target.RANGE="A2:E4" then
msgbox "Hello"
end if
end sub



--------------------


Ideas welcome

tx


--
tx12345
------------------------------------------------------------------------
tx12345's Profile: http://www.excelforum.com/member.php...o&userid=24776
View this thread: http://www.excelforum.com/showthread...hreadid=571940

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A2:E4")) Is Nothing Then
MsgBox "Out of Range"
Else
MsgBox "In Range"
End If
End Sub

HTH

Charles Chickering

tx12345 wrote:
Hi

I hve this code:


Code:
--------------------
Private sub Worksheet_Selectionchange(ByVal Target As Range)

if target.address="$B$4" then
msgbox"Hello"
end if
end sub

--------------------


But I want this to work for a range of cells on the sheet, i.e.:


Code:
--------------------
Private sub Worksheet_Selectionchange(ByVal Target As Range)

if target.RANGE="A2:E4" then
msgbox "Hello"
end if
end sub



--------------------


Ideas welcome

tx


--
tx12345
------------------------------------------------------------------------
tx12345's Profile: http://www.excelforum.com/member.php...o&userid=24776
View this thread: http://www.excelforum.com/showthread...hreadid=571940

Private sub Worksheet_Selectionchange(ByVal Target As Range)

if not intersect(target, Range("A2:E4")) is nothing then
msgbox"Hello"
end if
end sub

--
HTH...

Jim Thomlinson


"tx12345" wrote:


Hi

I hve this code:


Code:
--------------------
Private sub Worksheet_Selectionchange(ByVal Target As Range)

if target.address="$B$4" then
msgbox"Hello"
end if
end sub

--------------------


But I want this to work for a range of cells on the sheet, i.e.:


Code:
--------------------
Private sub Worksheet_Selectionchange(ByVal Target As Range)

if target.RANGE="A2:E4" then
msgbox "Hello"
end if
end sub



--------------------


Ideas welcome

tx


--
tx12345
------------------------------------------------------------------------
tx12345's Profile: http://www.excelforum.com/member.php...o&userid=24776
View this thread: http://www.excelforum.com/showthread...hreadid=571940

Private sub Worksheet_Selectionchange(ByVal Target As Range)

if not intersect(target, RANGE("A2:E4")) is nothing then
msgbox "Hello"
end if
end sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"tx12345" wrote in
message ...

Hi

I hve this code:


Code:
--------------------
Private sub Worksheet_Selectionchange(ByVal Target As Range)

if target.address="$B$4" then
msgbox"Hello"
end if
end sub

--------------------


But I want this to work for a range of cells on the sheet, i.e.:


Code:
--------------------
Private sub Worksheet_Selectionchange(ByVal Target As Range)

if target.RANGE="A2:E4" then
msgbox "Hello"
end if
end sub



--------------------


Ideas welcome

tx


--
tx12345
------------------------------------------------------------------------
tx12345's Profile:
http://www.excelforum.com/member.php...o&userid=24776
View this thread: http://www.excelforum.com/showthread...hreadid=571940

Thanks. Works perfectly.


t

--
tx1234
-----------------------------------------------------------------------
tx12345's Profile: http://www.excelforum.com/member.php...fo&userid=2477
View this thread: http://www.excelforum.com/showthread.php?threadid=57194