>>213
複数のワークシートを順に選択するプログラムがどこにもない

Sub テキストボックスの文字列を書き出す()
　　Dim shp As Shape
　　Dim n As Long　　' 文字列を書き出す行番号

　　n = Cells.SpecialCells(xlCellTypeLastCell).Row + 3

　　For Each ws In Worksheets
　　　　For Each shp In ws.Shapes
　　　　　　Cells(n, "A").Value = shp.TextFrame.Characters.Text
　　　　　　n = n + 1
　　　　Next
　　Next
End Sub