"Order" & ThisWorkbook.Name
If Left(ActiveWorkbook.Name, 5) = "Order" Then
MsgBox "starts with Order"
Else
MsgBox "starts with something else"
End If
IF LEFT(Activeworkbook.Name, 5) <> "Order" THEN
EXIT SUB
END IF
If Left(ActiveWorkbook.Name, 5) <> "Order" Then Exit Sub
If Left(ActiveWorkbook.Name, 5) <> "Order" Then
Exit Sub
Else
If Sheets.Count > 1 Then
Sheets("Sheet2").Delete
Sheets("Sheet3").Delete
End If
End If
If Left(ActiveWorkbook.Name, 5) <> "Order" Then Exit Sub
If Sheets.Count > 1 Then
Sheets("Sheet2").Delete
Sheets("Sheet3").Delete
End If