delete some sheets of new workbook

[Ambiguooous]

How can I delete some sheets from the new generated workbook if I am using the following code :


Sub SaveAsValues()
Dim ws As Worksheet


For Each ws In Worksheets
ws.UsedRange.Value = ws.UsedRange.Value
Next ws

ThisWorkbook.SaveAs "D:\LM - " & Format(Date, "dd mmmm yyyy"), _
FileFormat:=51, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

 

[Peter_SSs]

Which sheets do you want deleted?

 

[Ambiguooous]

This workbook consists of 10 sheets (8 related to customers) and there are 2 related to data "raw data"

what i want to generate a new workbook with only 8 sheets without any formula to send it to the concerned

 

[Peter_SSs]

.. there are 2 related to data "raw data" ..

1. So is it these 2 sheets that you want deleted?

2. If so, how do we identify them? Do they have particular tab names? or are they always, say, the left hand 2 sheets in the workbook? or something else we can use to logically identify which ones have to be deleted?

 

[Ambiguooous]

yes yes we can identify them, their names : ( prices ) & ( codes )

 

[Peter_SSs]

yes yes we can identify them, their names : ( prices ) & ( codes )

Try adding the blue code where shown

For Each ws In Worksheets
  ws.UsedRange.Value = ws.UsedRange.Value
Next ws
Application.DisplayAlerts = False
Sheets("prices").Delete
Sheets("codes").Delete
Application.DisplayAlerts = True