【vba_excel】シート名の取得

'シート名の頭がoのシートを取得する

Dim intRow As Integer
Dim objWorkSheet As Worksheet

intRow = 1
For Each objWorkSheet In Worksheets
if left(objWorkSheet.Name,1) = "o" then
Sheets("Sheet1").Cells(intRow, 1).Value = objWorkSheet.Name
intRow = intRow + 1
end if
Next