エクセル VBAについて

Question

テンプレ(sheet1)と、リスト一覧(sheet2)以外は、取引先の会社名がシート名になったエクセルファイルがあります。

テンプレと、リスト一覧以外を分割して、一枚ずつに保存(保存名はシート名)して、同じ保存先に格納したいのですが、テンプレとリスト一覧のシート2枚を除いてという設定がうまくいきません。

テンプレのみ、またはリスト一覧のみを除いてだけだったらいけるのですが、、、

以下、ご教示ください。

Sub sheets_save()
For Each シート In Worksheets
If シート.Name <> "テンプレ" Then
シート.Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "" & シート.Name
ActiveWorkbook.Close
End If
Next シート
End Sub

Answer 1

下記でどうでしょう。

Sub sheets_save()
    For Each シート In Worksheets
        If シート.Name <> "テンプレ" And シート.Name <> "リスト一覧" Then
            シート.Copy
            ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & シート.Name
            ActiveWorkbook.Close
        End If
    Next シート
End Sub