Excel msgbox when cell range is clicked

[SoggyCashew]

I want to have a msgbox appear when any cell in the workbook is selected.
How is this done.

 

[Mike H]

Hi,

Di you really mean any cell!! If you do then right click your worksheet,
view code and paste this in.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox "You just clicked " & Target.Address
End Sub

Or for when you click in a certain range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
MsgBox "You just clicked " & Target.Address
End If
End Sub

Mike

 

[Gord Dibben]

Seems rather annoying to me but add this code to Thisworkbook module.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Range)
MsgBox "annoying message"
End Sub


Gord Dibben MS Excel MVP