Activate Msgbox when cell A1:A3 is selected

[Pinaceous]

Hi All,

I'm trying to create a VBA code whereby if cells A1:A3 are selected in a worksheet a Msgbox will produce a message.

For example, when in selecting cells A1:A3 Msgbox will produce "Selected".

If you can help, please provide a code because I'm stuck.

Thank you!

Pinaceous

 

[Rick Rothstein]

I'm trying to create a VBA code whereby if cells A1:A3 are selected in a worksheet a Msgbox will produce a message.

For example, when in selecting cells A1:A3 Msgbox will produce "Selected".

Right click the tab at the bottom of the worksheet that you want to have this functionality and select "View Code" from the popup menu that appears, then copy/paste this code in the code window that opened up...

[table="width: 500"]
[tr]
	[td]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect(Target, Range("A1:A3")) Is Nothing Then MsgBox "Selected"
End Sub[/td]
[/tr]
[/table]

That's it... now go back to the worksheet and try it out.

 

[mumps]

Copy/paste this macro in the code module for your worksheet, not in a regular module:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("A1:A3")) Is Nothing Then Exit Sub
    MsgBox ("Selected")
End Sub

 

[dmadhup]

You can also write this way.

Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        MsgBox "A1 was Selected"
    ElseIf Target.Address = "$A$2" Then
        MsgBox "A2 was Selected"
    ElseIf Target.Address = "$A$3" Then
        MsgBox "A3 was Selected"
    Else
        Exit Sub
    End If
End Sub

 

[Pinaceous]

Thank you all!!!!!!


Your the best!!!!!

 

[mikerickson]

A non-VBA approach would be to use Data Validation (with the condition =TRUE) with an input message of your choosing.