et5323

Sub test()
    Dim xlSht As Worksheet, sFile As String
    For Each xlSht In Sheets(Array(Sheet1.Name, Sheet2.Name, Sheet3.Name))
        With xlSht
            sFile = ThisWorkbook.Path & "\" & .Name & ".xls"
            If Dir(sFile) <> "" Then Kill sFile
            .Copy
            ActiveWorkbook.SaveAs sFile
        End With
    Next
End Sub