I want each cell right to a cell containing "I" in the column B to be
filled with a pattern. What's missing?

(The call of the pattern is also wrong...)


Dim cell As Range
For Each cell In Range("B:B")
If cell = "I" Then *(XXX)*.Offset(0, 1).*Fill.Patterned
msoPattern50Percent*
Next


--
Turquoise_dax
------------------------------------------------------------------------
Turquoise_dax's Profile: http://www.excelforum.com/member.php...o&userid=35185
View this thread: http://www.excelforum.com/showthread...hreadid=554613