Is using .Clean(Trim(StmtStartDate)) in every instance too much? Does it affect performance appreciably?
With Application.WorksheetFunction
StmtStartDate = .Clean(Trim(InputBox(Prompt:="Period Start Date")))
If .Clean(Trim(StmtStartDate)) = "" Or Not IsDate(.Clean(Trim(StmtStartDate))) Then
MsgBox "Invalid Date"
Exit Sub
ElseIf Format(.Clean(Trim(StmtStartDate)), "dddd") <> "Sunday" Then
Answer = MsgBox("Statement Periods typically begin on Sunday. You're start day is " & _
Format(.Clean(Trim(StmtStartDate)), "dddd") & ". Continue?", vbYesNo + vbQuestion, "Start Day")
If Answer = vbNo Then
Exit Sub
End If
Else
End If
End With
Bookmarks