Calendar i excel

Jeg vil gerne have at kalenderen poppe op, når en af cellerne i området j12:j20 blive markeret og datoværdien skal også indsættes på den aktive/markeret celle.Jeg har lavet følgende kode i excel (2003). Men det virker ikke efter hensigten.

Koden ligger i den arkfane, hvor den skal aktiveres.

Private Sub Calendar1_Click()
  ActiveCell.Value = Me.Calendar1.Value
  Me.Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address = ("j12:j20") Then
      If Target.Value <> 0 Then Me.Calendar1.Value = Target.Value Else Me.Calendar1.Value = Date
      Me.Calendar1.Left = Range("A:J").Width
      Me.Calendar1.Top = Range("1:" & Target.Row).Height
      Me.Calendar1.Visible = True
  Else
      Me.Calendar1.Visible = False
  End If
End Sub