Private Sub Calendar1_Click()
Dim ShObj As Worksheet
Set ShObj = ThisWorkbook.Worksheets("Detail Task")
ShObj.Rows(7).Copy
ShObj.Rows(ActiveCell.Row).Select
ActiveCell.Insert shift:=xlDown
ShObj.Cells(ActiveCell.Row, 2) = Calendar1.Value
ShObj.Range(ShObj.Cells(ActiveCell.Row, 4), ShObj.Cells(ActiveCell.Row, 7)) = ""
Application.CutCopyMode = False
Unload Me
End Sub
|