Hi Team,

i'm trying to copy two sheets from template workbook with macro that will
copy both sheets to new workbook excluding formulas and save as filename list
is sheet 1 cell b5, i know the below code is wrong therefore i need some
assistance

Application.ScreenUpdating = False
Application.DisplayAlerts = False
ActiveWorkbook.Worksheets(Array(2, 3)).Copy
With Worksheet(1)
..Copy
..PasteSpecial xlPasteValuesAndNumberFormats
Next Worksheet(2)
..Copy
..PasteSpecial xlPasteValuesAndNumberFormats
End With
ActiveWorkbook.SaveAs ("N:\02 Public Health\Comparison Report- v7 - " &
Range("b5").Value)
Application.ScreenUpdating = True

many thanks

Edit as followed

Application.ScreenUpdating = False
ActiveWorkbook.Worksheets(Array(2, 3)).Copy
ActiveWorkbook.SaveAs "N:\02 Public Health\Comparison Report- v7 - " & _
Range("b5").Value
Application.ScreenUpdating = True

thanks fro the response, it still copies all formula also is there any way to
remove them also,
thanks

"딸짱" wrote:

Edit as followed

Application.ScreenUpdating = False
ActiveWorkbook.Worksheets(Array(2, 3)).Copy
ActiveWorkbook.SaveAs "N:\02 Public Health\Comparison Report- v7 - " & _
Range("b5").Value
Application.ScreenUpdating = True