So sorry! I meant to the right!

I tried this, but got an error when it got to "column("C")


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 Sub

It says "Compile error: Sub or Function not defined

--
newbie09
-----------------------------------------------------------------------
newbie099's Profile: http://www.excelforum.com/member.php...fo&userid=3385
View this thread: http://www.excelforum.com/showthread.php?threadid=53636