I want to add a graphic that pulls up a calendar and lets someone populate a
field in and excel sheet with a date of their choosing. Is this available?
How is it done?

enter this code in worksheet object: (ie right click worksheet tab & select
view code & paste there) When you select a cell in range A1 to A20 the
calendat form should show - this may do what you want?

Private Sub Calendar1_Click()
ActiveCell.Value = CDbl(Calendar1.Value)
ActiveCell.NumberFormat = "mm/dd/yyyy"
ActiveCell.Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count 1 Then Exit Sub
If Not Application.Intersect(Range("A1:A20"), Target) Is Nothing Then
Calendar1.Left = Target.Left + Target.Width - Calendar1.Width
Calendar1.Top = Target.Top + Target.Height
Calendar1.Visible = True
' select Today's date in the Calendar
Calendar1.Value = Date
ElseIf Calendar1.Visible Then Calendar1.Visible = False
End If
End Sub

--
JB


"B_Man57068" wrote:

I want to add a graphic that pulls up a calendar and lets someone populate a
field in and excel sheet with a date of their choosing. Is this available?
How is it done?

Got a runtime error "424":

Object Required

MessageBox Popup. Debugging caused the program to stop on this line.

Calendar1.Left = Target.Left + Target.Width - Calendar1.Width

Any Ideas?

"johnboy" wrote:

enter this code in worksheet object: (ie right click worksheet tab & select
view code & paste there) When you select a cell in range A1 to A20 the
calendat form should show - this may do what you want?

Private Sub Calendar1_Click()
ActiveCell.Value = CDbl(Calendar1.Value)
ActiveCell.NumberFormat = "mm/dd/yyyy"
ActiveCell.Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count 1 Then Exit Sub
If Not Application.Intersect(Range("A1:A20"), Target) Is Nothing Then
Calendar1.Left = Target.Left + Target.Width - Calendar1.Width
Calendar1.Top = Target.Top + Target.Height
Calendar1.Visible = True
' select Today's date in the Calendar
Calendar1.Value = Date
ElseIf Calendar1.Visible Then Calendar1.Visible = False
End If
End Sub

--
JB


"B_Man57068" wrote:

I want to add a graphic that pulls up a calendar and lets someone populate a
field in and excel sheet with a date of their choosing. Is this available?
How is it done?