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