Public Str As Long, Stlb As Long
Sub Calendar1()
Str = 4
Stlb = 3
Calendar.Show vbModeless
End Sub
