VBA - 変数マクロの2回目の実行後に更新されない

Question

さて、新しいスプレッドシートとしてコピーして元のスプレッドシートのセルの値として再設定しようとしているスプレッドシートがあります。マクロを初めて実行すると、正常に動作します。しかしそれ以降、「Name is already taken」というエラーが表示され、セルC2で新しい値を取得する代わりに、元の変数（x）の値を再度渡そうとします。

私は自習していますが、これでもまだかなり新しいです。どんな助けでも大いに感謝しています。私の範囲参照にエラーが入っているように感じます。変数（x ）私が紛失しているかもしれないその細胞の価値に。

Sub freezesheet() 
    Dim x As String 

    Sheets("Sheet1").Activate 
    x = Range("C2:C2").Value 
    Debug.Print (x) 

    Sheets("Sheet1").Copy after:=Sheets(3) 
    Sheets("Sheet1 (2)").Name = x 
    x = "" 

    Debug.Print (x) 

    Cells.Select 
    selection.Copy 
    selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
     :=False, Transpose:=False 
    Application.CutCopyMode = False 

    End Sub 

Answer 1

同じ名前のシートが2枚あることはできません。したがって、コードをもう一度実行すると、追加された新しいシートは、Sheet1のセルC2に基づいて名前が変更されます。

また、あなたはこのようなコードを短くすることができますが、コードの次の時間を実行する前に、C2値を毎回変更した場合...

Sub freezesheet() 
    Dim x As String 

    Sheets("Sheet1").Activate 
    x = Range("C2").Value 

    Sheets("Sheet1").Copy after:=Sheets(3) 
    ActiveSheet.Name = x 
    ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value 
End Sub 

上記のコードは問題なく実行されます。