On May 14, 5:57 pm, merjet wrote:
Sub Macro1() ' or whatever name it is
Dim bTest As Boolean
bTest = FailTest
If bTest = True Then Exit Sub
' rest of code
End Sub

Private Function FailTest() As Boolean
If Range("B2") = "X" Then
If IsEmpty(Range("E1")) Or IsEmpty(Range("E2")) Or _
IsEmpty(Range("E3")) Then
MsgBox "Can't export data unless cells E1, E2, and E3 are
filled in."
FailTest = True
Else
FailTest = False
End If
End If
End Function

Hth,
Merjet

Thank you Merjet...this worked. You saved the day yet again!