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


Eager2Learn wrote:

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

Help.
Jeff


---
Message posted from http://www.ExcelForum.com/