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

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

"SoggyCashew" wrote:

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

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

On Thu, 6 Nov 2008 01:07:00 -0800, SoggyCashew
wrote:

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