Sub テキストボックスを削除する() 'Rangeでテキストボックス名を指定する Worksheets("Sheet1").Shapes.Range("テキスト ボックス 1").Delete End Sub