Changing an If then statement

[bradyj7]

Hi there,

The code below looks for the text 'Journey Start Event' in column E and if it cannot find it, it exits the routine.

Dim myCell1 As Range, _
    found   As Range
LastRow2 = Range("E" & Rows.Count).End(xlUp).Row
Set myCell1 = Range("E" & LastRow2)
Set found = Columns("E").Find(What:="Journey Start Event", LookIn:=xlValues, LookAt:=xlPart)
    If found Is Nothing Then Exit Sub

My questions is how do I change the if then statement to save the file to a folder before exiting the routine.

This is folder I want to save it to

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs FileName:="C:\Bad data\" & ActiveWorkbook.Name

thank you

 

[VoG]

Try

Dim myCell1 As Range, _
    found   As Range
LastRow2 = Range("E" & Rows.Count).End(xlUp).Row
Set myCell1 = Range("E" & LastRow2)
Set found = Columns("E").Find(What:="Journey Start Event", LookIn:=xlValues, LookAt:=xlPart)
If found Is Nothing Then
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:="C:\Bad data\" & ActiveWorkbook.Name
    Application.DisplayAlerts = True
    Exit Sub
End If

 

[Peter_SSs]

Untested, but it should be something along the lines of

If found Is Nothing Then
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:="C:\Bad data\" & ActiveWorkbook.Name
    Application.DisplayAlerts = True
    Exit Sub
End If

 

[bradyj7]

Thanks you, that worked perfect.