There is no indication in this file that you tried pasting code from shape buttons into the form code. Use this as your UserForm1 code. You do not need "Exit Sub". I did not test this but this change will make the UserForm buttons do whatever the worksheet shape buttons do.
Private Sub CommandButton2_Click()
'
' Called macro
'action-date-nextstep
If Not Intersect(Selection, Range("D:D")) Is Nothing Then
Selection.FormulaR1C1 = "CALLED"
Selection.Offset(0, 1).Select
Selection.Value = Format(Now(), "MM/DD/YYYY")
Selection.Offset(0, 1).Select
Selection.FormulaR1C1 = "WAITING"
Else
MsgBox ("Please select cell/s in column D")
End If
End Sub
Private Sub CommandButton4_Click()
'
' Emailed macro
'action-date-nextstep
If Not Intersect(Selection, Range("D:D")) Is Nothing Then
Selection.FormulaR1C1 = "EMAILED"
Selection.Offset(0, 1).Select
Selection.Value = Format(Now(), "MM/DD/YYYY")
Selection.Offset(0, 1).Select
Selection.FormulaR1C1 = "WAITING"
Else
MsgBox ("Please select cell/s in column D")
End If
End Sub
Bookmarks