Maybe...

If cell.Text = "001" _
Or Trim(Left(cell.Offset(, 2).Text, 4)) = "BLDG" Then

jfcby wrote:

Hello,

I'm getting a run time error 424: object required in this part of my
script:

If cell.Text = "001" Or Trim(Left(cell, 4).Offset(, 2).Text) = "BLDG"

How can it be modified so that it does not give the error.

Thank yo for your help,
jfcby

--

Dave Peterson