lgroulx2000
Board Regular
- Joined
- Jan 6, 2009
- Messages
- 100
- Office Version
- 365
- Platform
- Windows
Hi,
How do I write these 2 if statments into 1?
If Not (Intersect(Target, Range(Cells(4, 2), Cells(62, 30))) Is Nothing) Then
CalendarFrm.Show
End If
If Not (Intersect(Target, Range(Cells(64, 2), Cells(69, 30))) Is Nothing) Then
CalendarFrm.Show
End If
Thanks,
Larry
How do I write these 2 if statments into 1?
If Not (Intersect(Target, Range(Cells(4, 2), Cells(62, 30))) Is Nothing) Then
CalendarFrm.Show
End If
If Not (Intersect(Target, Range(Cells(64, 2), Cells(69, 30))) Is Nothing) Then
CalendarFrm.Show
End If
Thanks,
Larry