I have the following macro run when I click on a button.
Option Explicit
Sub DontRunUtil_Override()
With Worksheets("TSA Request") 'Change CodeName to suit
If IsEmpty(.Range("F31")) Then
MsgBox "Missing Local or IF Type", vbCritical
Application.Goto .Range("F31")
ElseIf IsEmpty(.Range("F17")) Then
MsgBox "Missing Location", vbCritical
Application.Goto .Range("F17")
ElseIf IsEmpty(.Range("F20")) Then
MsgBox "Missing Customer's Name", vbCritical
Application.Goto .Range("F20")
ElseIf IsEmpty(.Range("F4")) Then
MsgBox "Missing Customer's ID Number", vbCritical
Application.Goto .Range("F4")
ElseIf IsEmpty(.Range("F5")) Then
MsgBox "Missing Customer's Order Number", vbCritical
Application.Goto .Range("F5")
ElseIf IsEmpty(.Range("F6")) Then
MsgBox "Missing Container Number", vbCritical
Application.Goto .Range("F6")
ElseIf IsEmpty(.Range("F9")) Then
MsgBox "Missing To Address", vbCritical
Application.Goto .Range("F9")
ElseIf IsEmpty(.Range("F10")) Then
MsgBox "Missing From Address", vbCritical
Application.Goto .Range("F10")
ElseIf IsEmpty(.Range("F7")) Then
MsgBox "Missing Type of Service Requested", vbCritical
Application.Goto .Range("F7")
ElseIf IsEmpty(.Range("F8")) Then
MsgBox "Missing Date Requested", vbCritical
Application.Goto .Range("F8")
Else
Run "Module6.Mail_Sheet_Outlook_Body"
End If
End With
End Sub
I would like when i click on the button for it to highlight those cells to inform the agent which cells need to have data in it and if it is all filled out properly then run this macro. Any help would be greatly appreciated - I have included my workbook for any assistance you can provide!
Bookmarks