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