VBA Help

[Nabeel]

hello
in attached file there is the VBA of popup calendar.,write click on cell select the insert date calendar shows..i want when i click on A1 cell or any other specific cell the calendar shows on click..

 

[ThauThème]

Hi Nabeel,

Try this code in the right sheet :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Specific_Cells As Range
Set Specific_Cells = Range("A1:A10") 'adapt to you case
If Not Application.Intersect(Target, Specific_Cells) Is Nothing Then frmcalendar.Show
End Sub

 

[Nabeel]

Hi Nabeel,

Try this code in the right sheet :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Specific_Cells As Range
Set Specific_Cells = Range("A1:A10") 'adapt to you case
If Not Application.Intersect(Target, Specific_Cells) Is Nothing Then frmcalendar.Show
End Sub

thnx its working