Sub 全シート名を取得してプルダウンにする()
    
    処理数 = 1 'シート1個のエラー回避
    
    For シート番号 = 1 To Worksheets.Count 'シート数分処理する
    
        If 処理数 = 1 Then '1個目は通常処理
            シート名 = Worksheets(シート番号).Name
        Else '2個目以降は間に「,」を付ける
            シート名 = シート名 & "," & Worksheets(シート番号).Name
        End If
        
        処理数 = 処理数 + 1 '次に
    
    Next シート番号
    
    '取得したシート名一覧をプルダウンにする
    Range("A1").Validation.Add Type:=xlValidateList, _
    AlertStyle:=xlValidAlertStop, Formula1:=シート名

End Sub