I'm trying to write the following formula into a cell and keep gettin
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 windo

--
Message posted from http://www.ExcelForum.com

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/

.