justine

you can not insert cells and push items to the left or up.

this code will insert a cell into column f (moving cells to the right
if the cell in column c (same row) has a value of forced - please not
that the if statement is case sensative
eg forced does not test the same as Forced

Sum InsertCell
Dim Rng As Range
For Each Rng In Column("c")
If Rng.Value = "forced" Then
Cells(Rng.Row, "f").Insert Shift:=xlToRight
End If
Next Rng
End Su

--
mudrake
-----------------------------------------------------------------------
mudraker's Profile: http://www.excelforum.com/member.php...nfo&userid=247
View this thread: http://www.excelforum.com/showthread.php?threadid=53636