I believe I've figured it out. However, I would like to have the information corrected before the process for saving happens. What's happening now is the message box will pop, but once you click ok, it will save. I don't want it to be saved until the correct information is selected or input. This is what I have:
Sub Submit_ALL()
Procedure1
Procedure2
Procedure3
Procedure4
Procedure5
Procedure6
Procedure7
End Sub
Sub Procedure1()
If Range("E3").Text = "SELECT NAME" Then
MsgBox ("Please select your name.")
End If
End Sub
Sub Procedure2()
If Range("E7").Text = "SELECT REASON" Then
MsgBox ("Please select the reason for the call.")
End If
End Sub
Sub Procedure3()
If Range("E19").Text = "SELECT YES/NO" Then
MsgBox ("Please select if the call was avoidable.")
End If
End Sub
Sub Procedure4()
If Range("E8").Value <> "0" Then
MsgBox ("Please add a comment about your call.")
End If
End Sub
Sub Procedure5()
Range("K1").Value = Now()
Range("M1").Value = Now()
End Sub
Sub Procedure6()
Dim Dates As String
Dim Time As String
Dim CSTechName As String
Dim CallerName As String
Dim CallerSupervisor As String
Dim CallerPosition As String
Dim ReasonForTheCall As String
Dim StepsTakenToResolve As String
Dim WasTheCallAvoidable As String
Dim EmailCaller As String
Dim EmailCallerLeader As String
Worksheets("Form").Select
Dates = Range("K1")
Worksheets("Form").Select
Time = Range("M1")
Worksheets("Form").Select
CSTechName = Range("E3")
Worksheets("Form").Select
CallerName = Range("E4")
Worksheets("Form").Select
CallerSupervisor = Range("E5")
Worksheets("Form").Select
CallerPosition = Range("E6")
Worksheets("Form").Select
ReasonForTheCall = Range("E7")
Worksheets("Form").Select
StepsTakenToResolve = Range("E8")
Worksheets("Form").Select
WasTheCallAvoidable = Range("E19")
Worksheets("Form").Select
EmailCaller = Range("E20")
Worksheets("Form").Select
EmailCallerLeader = Range("E21")
Workbooks.Open Filename:="H:\CS Tech Support\Call DATA.xlsx"
Worksheets("DATA").Range("A1").Select
RowCount = Worksheets("DATA").Range("A1").CurrentRegion.Rows.Count
With Worksheets("DATA").Range("A1")
.Offset(RowCount, 0) = Dates
.Offset(RowCount, 1) = Time
.Offset(RowCount, 2) = CSTechName
.Offset(RowCount, 3) = CallerName
.Offset(RowCount, 4) = CallerSupervisor
.Offset(RowCount, 5) = CallerPosition
.Offset(RowCount, 6) = ReasonForTheCall
.Offset(RowCount, 7) = StepsTakenToResolve
.Offset(RowCount, 8) = WasTheCallAvoidable
.Offset(RowCount, 9) = EmailCaller
.Offset(RowCount, 10) = EmailCallerLeader
End With
ActiveWorkbook.Save
ActiveWorkbook.Close SaveChanges
Sheets("Form").Select
Range("E3").Select
End Sub
Sub Procedure7()
Worksheets("Form").Range("E4:G4").ClearContents
Worksheets("Form").Range("K5:L6").ClearContents
Worksheets("Form").Range("E7:I7").ClearContents
Worksheets("Form").Range("E8:L18").ClearContents
Worksheets("Form").Range("E19:F19").ClearContents
Worksheets("Form").Range("E20:F20").ClearContents
Worksheets("Form").Range("E21:F21").ClearContents
Worksheets("Form").Range("E7:I7").Value = "SELECT REASON"
Worksheets("Form").Range("E19:F19").Value = "SELECT YES/NO"
End Sub