Hi
I hve this code:
But I want this to work for a range of cells on the sheet, i.e.:Please Login or Register to view this content.
Ideas welcomePlease Login or Register to view this content.
tx
Hi
I hve this code:
But I want this to work for a range of cells on the sheet, i.e.:Please Login or Register to view this content.
Ideas welcomePlease Login or Register to view this content.
tx
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 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
Bob Phillips
(replace somewhere in email address with gmail if mailing direct)
"tx12345" <[email protected]> wrote in
message news:[email protected]...
>
> 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.
tx
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks