Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
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 |