Private Sub CommandButton1_Click()
Dim rng As Range, t
e = CSng(CDate(TextBox1))
Set rng = Sheets("cal").Range("$A$1:$ND$1")
p = Application.Match(e, rng, 0)
r = Cells(Rows.Count, p).End(xlUp).Row + 1
MsgBox Sheets("cal").Cells(r, p).Address
'////////////////////////////////////////////////
'plus court ;-)
MsgBox Cells(Rows.Count, p).End(3)(2).Address
End Sub