Adding Formulas back into a VB copied sheet

[cevaughn]

I have absolutly no experience with VB but have copied various scripts from different sources to try to create a page that will copy itself from a button on another page in the workbook and remove the formulas and hyper links. The script below works fine, but I want to re-insert the formulas I had in column L22:L25 (either that or not remove them to begin with) at the time of the copy. I have Hyper links to other information on the sheet that I need to remove so I can send the sheet by e-mail. Any Ideas?


Option Explicit

Sub createpo()
Dim NewName As String
Dim nm As Name
Dim ws As Worksheet



With Application
.ScreenUpdating = False

' Copy specific sheets
' *SET THE SHEET NAMES TO COPY BELOW*
' Array("Blank P.O"))
' Sheet names go inside quotes, seperated by commas
On Error GoTo ErrCatcher
Sheets(Array("Blank P.O")).Copy
On Error GoTo 0

' Paste sheets as values
' Remove External Links, Hperlinks and hard-code formulas
' Make sure A1 is selected on all sheets
For Each ws In ActiveWorkbook.Worksheets
ws.Cells.Copy
ws.[A1].PasteSpecial Paste:=xlValues
ws.Cells.Hyperlinks.Delete
Application.CutCopyMode = False
Cells(1, 1).Select
ws.Activate
Next ws
Cells(1, 1).Select

' Remove named ranges
For Each nm In ActiveWorkbook.Names
nm.Delete
Next nm

' delete column N thru R
Columns("N:R").Select
Selection.Delete Shift:=xlToLeft


.ScreenUpdating = True
End With
Exit Sub

ErrCatcher:
MsgBox "Specified sheets do not exist within this workbook"
End Sub

[cevaughn]

Gues I figured it out