Question : Userform hide/show at Specific range

Hi Experts,

I'm using this code to activate the Calender at range A:A:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("B:B")) Is Nothing Then
Calender.Hide
Else
Calender.Show False
End If
End Sub

I would to use the same approach for my Userform1 and the target range is, D:D. My current userform1 code is:

Option Explicit
Private Sub CommandButton1_Click()
UserForm1.Show False
End Sub

Private Sub UserForm1_Activate()
UserForm1.SetFocus
End Sub

Please advice how to do this. Attached as well the file for your perusal.

Answer : Userform hide/show at Specific range

Then I think you want:

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("B:B")) Is Nothing Then
   Calender.Hide
      if intersect(target, Range("D:D")) Is nothing then
         ' do nothing
      Else
         userform1.show False
      End If
    Else
    Calender.Show False
End If
End Sub

Open in New Window

Select All