Pop Up Box

[tpotmatt]

I am trying to have a pop up box for multiple cells. This is the code I am currently using.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Rng1            As Range

    Set rng = Range("A1:B10")
    If Intersect(Target, rng) Is Nothing Then Exit Sub
    MsgBox "Hi, you have select cell " & Target.Address & vbCrLf & "Please input a number", vbInformation
    

End Sub

It works great for 1 cell, but not exactly what I need. Is it possible to have a pop up box for multiple cells in the same worksheet? Any help will be greatly appreciated.

 

[AlphaFrog]

Try something like this...

[color=darkblue]Private[/color] [color=darkblue]Sub[/color] Worksheet_SelectionChange([color=darkblue]ByVal[/color] Target [color=darkblue]As[/color] Range)
    
    [color=darkblue]If[/color] [color=darkblue]Not[/color] Intersect(Target, Range("A1:B10")) [color=darkblue]Is[/color] [color=darkblue]Nothing[/color] [color=darkblue]Then[/color]
        MsgBox "Hi, you have select cell " & Intersect(Target, Range("A1:B10")).Address & _
                vbCrLf & "Please input a number", vbInformation
    [color=darkblue]End[/color] [color=darkblue]If[/color]
    
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

 

[tpotmatt]

That works great. Thank you so much.