To have a date picker to show on multiple worksheets in the same columns
<p>I add a date picker 12.0 on Sheet 1 and would like to have it working across sheet 2 and sheet 3 as well. </p>

<p>The below code only works on column 3 and column 6 of sheet 1, but when I click on the column 3 and column 6 in sheet 2 or sheet 3, no date picker shows up. </p>

<p>Please help, thanks a bunch!</p>

<pre><code>Private Sub Calendar1_Click()
Selection.Value = Calendar1.Value
Calendar1.Visible = False
Calendar1.Value = Date
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column &lt;&gt; 3 And Target.Column &lt;&gt; 6 Then Calendar1.Visible = fales: Exit Sub
Calendar1.Top = (Target.Row - 1) * 16.5

Calendar1.Top = ActiveCell.Top 
Calendar1.Left = ActiveCell.Left + 80

Calendar1.Visible = True

End Sub
</code></pre>