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?