Save excel sheets as separate files except sheet1

[kittu55]

Hi

I need a help regarding the below problem i'm facing

I have an excel workbook with multiple sheets and each sheet Except Sheet1 and Sheet 2 needs to be saved as a separate excel workbook with the sheet name as the file name. The master sheet should remain intact without any changes.

I'm using the below code but it is not working. Can some one please help on this

Sub SaveAll()
  Dim wbk As Workbook
  Dim wsh As Worksheet
  Set wbk = ActiveWorkbook
  For Each wsh In wbk.Worksheets
        If Wsh.Name <> "Sheet1" Then wsh.Copy
        ActiveWorkbook.SaveAs Filename:=wsh.Name & ".xls"
  Next wsh
End Sub

Thanks in Advance.

Regards
Kittu