Would someone please help me with the rest of this?
I want the if Statements criteria to be based on whether the current selection is in Column B or not. I have most of it put together below.
Code
Private Sub Calendar1_Click()
Dim MyTime
Dim CellAddress As String
MyTime = Time
CellAddress = ActiveCell.Address
'If current active cell is in column B I want to do this
ActiveCell = Calendar1.Value
Else ' I want to do this
ActiveCell = Left(UserName, 2) & " " & Left(Calendar1.Value, 4) & " " & Format(MyTime, ("h:mm a/p"))
End If
End Sub
Display More