Thread: VBA help
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.misc
kevin mc kevin mc is offline
external usenet poster
 
Posts: 1
Default 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