If it finds "Customer" then run code if it dosen't skip code

[Djblois]

Please don't get tired with me everyone, it is really coming along. lol Thank you all for your help. Now, I want to check if it finds "Customer" and if it does then run some code, if it dosen't skip the code and go on the next part of the macro.

[compariniaa]

if it finds customer where? in each row or column, or just once on the entire worksheet?

[Djblois]

In a particular Column. Here is the code I am using:

Detail.Columns("A:A").Find(What:="Customer:").Select
Detail.Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Cut
If WB.Sheets.Count = 1 Then
Set Cust = WB.Worksheets.Add
Else: Set Cust = WB.Sheets(2)
End If
ActiveSheet.Name = "Cust"
ActiveSheet.Paste

[compariniaa]

before the detail.columns part, insert this:

On error goto No_Customer
'this is followed by your customer code
put in the GoTo line (No_Customer: ) right before where
you want the macro to continue
No_Customer:
'the next part of the macro goes here

[Djblois]

That will work but what if I want it to run this code if it finds customer in the row and this code if it doesn't. Then how do I get that code to work for that?

[mdmackillop]

Dim c As Range
Set c = Columns("A:A").Find(What:="Customer:")
If c Is Nothing Then
MsgBox "Not found"
Else
MsgBox c.Address
End If
Set c = Nothing