Insert Row & copy all formulas - shared workbook

[Eager2Learn]

Hi,
I have a workbook that is being shared. How can I have the user
insert a new row and keep all of the formulas that are being used. Th
INSERT command will put in a row, but no formulas. I would also lik
this row insert in row 3 (which is the actual first row where the dat
begins).

Help.
Jef

 

[keepITcool]

it's basic.. but it works for me.
(not tested in shared)



Sub InsertPrep()
Selection.Rows(1).EntireRow.Insert
With Selection.EntireRow
.FillDown
On Error Resume Next
If Not IsError(.SpecialCells(xlConstants)) Then
.SpecialCells(xlConstants).Clear
End If
On Error GoTo 0
End With
End Sub



keepITcool

< email : keepitcool chello nl (with @ and .) >
< homepage: http://members.chello.nl/keepitcool >