こんばんわっ。一応これで試してみましたが、Sheetの選択はできました。Dim tuki As Integertuki = InputBox("月を入力してください", "月の入力")tuki = Str(tuki)Sheets(tuki & "月").Select