Insert Row & copy all formulas - shared workbook

E

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
 
K

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 >
 
Top