変数を使用して新しいシートを作成して名前を付けるVBAコード

Question

Function_Name変数に基づいてコードが決定する名前のシートを追加するようにコードを取得しようとしています。これを実行すると、新しいシートFunction_Nameに名前が付けられます。何かご意見は？元のコードで

For X = 1 To B 
    Sheets("Calculations").Select 
    Function_Name = Range("B2").Offset(X, 0) 'Gets the Function Name 
    Worksheets.Add().Name = ("Function_Name") 
Next X 

Answer 1

For X = 1 To B 
    Worksheets.Add().Name = Sheets("Calculations").Range("B2").Offset(X, 0).Value 
Next X 

Answer 2

、引用符を削除する必要があります

Worksheets.Add().Name = ("Function_Name") 

に引用符でFUNCTION_NAMEを持っています。

Timの答えは、コードを書くためのさらに簡潔な方法を示しています。

すでに存在する名前のワークシートを追加しようとすると、実行時エラーが発生する可能性があるため、エラートラッピングを行うことを検討することもできます。

Answer 3

Dim wksSource as worksheet 

For X = 1 To B 
    Sheets("Calculations").Select 
    Function_Name = Range("B2").Offset(X, 0) 'Gets the Function Name 
    Set wksSource = worksheets.add 
    wksSource.Name = ("Function_Name") 
    Set wksSource = nothing 
Next X