This illustrates one way to handle the error:

Sub a()
On Error GoTo EndThis
Columns("C:C").Find(What:="x").EntireRow.Insert
MsgBox """x"" found"
Exit Sub
EndThis:
MsgBox """x"" not found"
End Sub


--
Jim
"Frantic Excel-er" wrote in
message ...
| Hi All,
|
| I currently have a huge macro that I use to import .asc files into excel
for
| validation, and other things. This macro separates project accounts from
non
| project accounts and performs a series of tasks on the project accounts.
The
| project accounts can be differentiated from non project accounts because
they
| all have an "X" in them...
|
| So, in my code, I first have to import the delimited data, set up column
| breaks, and then sort by my account column to get all of the account data
at
| the bottom of the wkst...(code is already written for this, and I have
been
| working on it for a month, so I don't want to change it). With that said,
I
| have my macro find "X" and then put a page break between all the project
| accounts, and the non project accounts so I can then do all my tasks with
| project accounts...
|
| So, now that I explained some stuff....here is the problem (question)...
| If the macro does not find any "x" in column C, then it will pop up an
error
| saying macro can't run...etc...etc....
|
| What I would like for it to do is pop up a message box that says " No
| Project Accounts Found", and then have the macro stop there, because all
| other tasks past that point are for the projects.
|
| Here is what part of my code looks like:
|
| (lots of stuff before this...vlookup tables, formatting,etc)
|
| Sheets("Modified").Select
| Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess,
_
| OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
| Columns("C:C").Find(What:="x").EntireRow.Insert
| Selection.End(xlDown).Select
| Selection.End(xlDown).Select
| Range(Selection, Selection.End(xlDown)).Select
| Range(Selection, Selection.End(xlToRight)).Select
| Selection.Sort Key1:=Range("D:D"), Order1:=xlAscending,
Header:=xlGuess, _
| OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
|
| Any suggestions on how I can get it to put that message box in??????
|
| Thanks in advance, and sorry for being wordy....
|
| Sara