Excel Forum

Code: Select all

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("B4,D3,D4")) Is Nothing Then
    Call Fil_DateIn
    Call Fil_DateOut
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Application.EnableEvents = True
With Calendar1
If Not Intersect(Target, Range("D3,D4")) Is Nothing Then
.Visible = True
.Top = ActiveCell.Offset(0, 0).Top
.Left = ActiveCell.Offset(0, 1).Left
Else
.Visible = False
End If
End With
'Application.EnableEvents = False
End Sub

Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
End Sub