Just to add...

I wouldn't type those events. Use the dropdown and choose the event that you
want. All you can do by typing is screw it up <vbg.

And on top of that, I'd qualify the range, too:

Option Explicit
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Range)

If Application.Intersect(Target, Sh.Range("H11:H22")) Is Nothing Then
'do nothing
Else
vacationTaken.Show
End If

End Sub

I didn't use "not" just because I find this syntax easier to understand. But
it's a personal choice.



"Patrick C. Simonds" wrote:

I placed this code under ThisWorkbook but it does not run. If I place the
code on a worksheet it runs fine for that worksheet. My workbook has over 90
worksheets. I was hoping not to have to attach this code to each worksheet.
Am I missing something?

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.range)

If Not Application.Intersect(Target, range("H11:H22")) Is Nothing Then
VacationTaken.Show

End Sub

--

Dave Peterson