新しいワークシートを追加してワークシートの名前を設定する。※同じワークシート名ダブリチェック機能付き

＜分類：ワークシート操作＞
＜使用例：ワークシートを追加して名前を設定する＞

＜プログラム例＞

Sub 使用例()
   
   Call 部品_ワークシート追加("新しいワークシート名")

End Sub

Sub 部品_ワークシート追加(p1)
    Dim ws_maxsu As Long
    Dim i As Long
    Dim flg As Long
    
    Worksheets.Add
    
    ws_maxsu = Worksheets.Count
    
    flg = 0
    For i = ws_maxsu To 1 Step -1
       
       If Worksheets(i).Name = p1 Then
          MsgBox ("エラー：ワークシート名が既に存在しています。処理を中止します。")
          flg = 1
          Exit For
       End If
    Next i
       
    If flg = 0 Then
       Worksheets(1).Name = p1
    End If
    
End Sub