Excelvba calendar

Private Subsheet _Change (as the target value of the range)

If the target. Column = 1 and target < > ""and the target. Offset(0, 1)= ""Then activate the cell. Offset (-1, 1)= date

If the target. Column = 3 and target < > ""and target. Offset(0, 1)= ""Then activate the cell. Offset (-1,-1)= date

End joint