You need to precede and follow the sFindPart variable with
another Chr(34) in both instances. Set the formula to a
string prior to setting the formula's property value to
it, and then take a look at it in debug and you'll see
what I mean.
HTH.
-Brad
-----Original Message-----
I'm trying to write the following formula into a cell and
keep getting
the runtime error 1004
Worksheets("Part list").Cells(lgPartListRow,
Range("Type").Column).Formula =
"=IF(MID(" & sFindPart & ",5,1)=" & Chr(34) & "W" & Chr
(34) & "," &
Chr(34) & "F" & Chr(34) & ",MID(" & sFindPart & ",5,1))"
sFind part is a string containing a part # like 2201F060-
51
the Mid function works when using the watch window
---
Message posted from http://www.ExcelForum.com/
.