VBA help
 

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

VBA help
 

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

VBA help
 

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