Hi There

I import my data to A1, Sheet1.
Then run a macro to sort it and move it to other sheets. What I would like
to do, is do a test before the macro runs.
To Test if Column A contains the word "Found" in any sentence. if yes Stop
macro, If No continue with the macro.

Thanks in Advance

Dave

Dim rng as Range
set rng = Columns(1).Find( "Found", Lookin:=xlFormulas, _
LookAt:=xlPart)
if not rng is nothing then Exit sub

' rest of your macro

--
Regards,
Tom Ogilvy


"Dave 2005" wrote in message
...
Hi There

I import my data to A1, Sheet1.
Then run a macro to sort it and move it to other sheets. What I would like
to do, is do a test before the macro runs.
To Test if Column A contains the word "Found" in any sentence. if yes Stop
macro, If No continue with the macro.

Thanks in Advance

Dave

Hi Dave

if Application.CountIf(Sheets("Sheet1").Columns("A:A" ), "*found*") then
Msgbox "End here"
Exit Sub
End if
'Your code here

--

XL2003
Regards

William



"Dave 2005" wrote in message
...
Hi There

I import my data to A1, Sheet1.
Then run a macro to sort it and move it to other sheets. What I would like
to do, is do a test before the macro runs.
To Test if Column A contains the word "Found" in any sentence. if yes Stop
macro, If No continue with the macro.

Thanks in Advance

Dave

Sorry Dave

Code should have been...

if Application.CountIf(Sheets("Sheet1").Columns("A:A" ), "*found*") =0 then
Msgbox "End here"
Exit Sub
End if
'Your code here


--


XL2003
Regards

William



"William" wrote in message
...
Hi Dave

if Application.CountIf(Sheets("Sheet1").Columns("A:A" ), "*found*") then
Msgbox "End here"
Exit Sub
End if
'Your code here

--

XL2003
Regards

William



"Dave 2005" wrote in message
...
Hi There

I import my data to A1, Sheet1.
Then run a macro to sort it and move it to other sheets. What I would
like
to do, is do a test before the macro runs.
To Test if Column A contains the word "Found" in any sentence. if yes
Stop
macro, If No continue with the macro.

Thanks in Advance

Dave