Inserting a cell If....


Posted by Carl on March 21, 2001 6:57 PM

If the row value of column B equals 5 then I need to insert a single cell in that row in column E.
Have tried several VB scripts but haven't managed it yet. Thanks.



Posted by Celia on March 22, 2001 4:35 AM

Carl
I'm not sure I understand what you want to do but try this :-
Sub InsertCell()
If Selection = Range("B5") Then Range("E5").Insert Shift:=xlDown
End Sub
Celia