Thanks for that. Could you tell me where in the code below were I would
insert your code?

If rsp = 6 Then
DataBaseWks.Rows("1:" & i).Copy Destination:=wks.Range("A1")
'code to remove grid lines
wks.Activate
ActiveWindow.DisplayGridlines = False
Cells(11, 1).Select
ActiveWindow.FreezePanes = True

'code to do column widths
For iCol = 1 To Columns.Count
wks.Columns(iCol).ColumnWidth =
DataBaseWks.Columns(iCol).ColumnWidth
Next iCol
wks.Rows.AutoFit
--
ASU


"Allllen" wrote:

using something like this:

Workbooks("newbook.xls").Worksheets("sheet1").Rang e("a1").Formula =
Workbooks("oldbook.xls").Worksheets("sheet1").Rang e("a1").Formula
--
Allllen


"ASU" wrote:

How can I copy and paste formulas, using vb codes, when creating a new
spreadsheet.
--
ASU