Too blind to see the prob

[kckay]

Been staring at this and not fixing:

Set rng1 = Range("C" & Comp_Treatment_Processes_Row & ":" & "Z" & Comp_Facility_Flows_Row)

Set rng1 = rng1.Find(Find_WSF, xlValues, xlPart)

The code fails on the second line. Find_WSF is a string I am looking for.

Thanks.

 

[shg]

Assuming that rng1 is initially set correctly, and that Find_WSF is a string variable rather than a literal string that should be enclosed in quotes ...

You're passing arguments to Find by position, but the enumeration values you're using don't go with those positions. See Help for the Range.Find method. Passing arguments by name would avoid this problem.

 

[kckay]

Doh! Thank you.

 

[shg]

You're welcome, good luck.