VBA - copy sheets from one workbook to a new workbook

[j4ymf]

Hello

I have a .xlsm workwook which i need to copy 3x sheets from that wookbook to a new workbook, but i would like to copy each sheet into a seperate workbook and save them as a .xls
is that posible via VBA

the sheets i need to copy are,
Sell Rates
Productivity Rates
Cost Rates

many thanks

 

[j4ymf]

Sub ChangeToBorisSheets()

'change Sell Rates to text
Sheets("Sell Rates").Select
Columns("C:C").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

'copy Sell Rates to new workbook
Sheets("Sell Rates").Select
Application.ScreenUpdating = False
ActiveSheet.Copy
With ActiveWorkbook
.SaveAs Filename:=ThisWorkbook.Path & "\" & Format("Sell Rates") & ".xls", FileFormat:=56
.Close SaveChanges:=False
End With

'copy Productivity Rates to new workbook
Sheets("Productivity Rates").Select
Application.ScreenUpdating = False
ActiveSheet.Copy
With ActiveWorkbook
.SaveAs Filename:=ThisWorkbook.Path & "\" & Format("Productivity Rates") & ".xls", FileFormat:=56
.Close SaveChanges:=False
End With

'copy Cost Rates to new workbook
Sheets("Cost Rates").Select
Application.ScreenUpdating = False
ActiveSheet.Copy
With ActiveWorkbook
.SaveAs Filename:=ThisWorkbook.Path & "\" & Format("Cost Rates") & ".xls", FileFormat:=56
.Close SaveChanges:=False
End With

Application.ScreenUpdating = True

End Sub

RESOLVED