'-------------------------

'Worksheet.Select メソッド

Sub Test()

Dim ws As Worksheet, myCnt As Integer

  myWord = "A*"

  myCnt = 0

  For Each ws In ActiveWorkbook.Worksheets　’全シートを調べる

  If ws.Name Like myWord Then

  ws.Select myCnt = 0　’シートを追加選択する。詳細は下記。

  myCnt = myCnt + 1

  End If

  Next ws

  If myCnt > 0 Then ActiveWindow.SelectedSheets.Copy　’選択されたシートをコピー

End Sub

  '----------------------------------------------------

  'Worksheet.Select メソッド:

  '現在の選択項目を削除し、ワークシートを選択する場合は true、

  '現在の選択内容に既に選択されているオブジェクトとワークシートを追加する場合は false です。

  '「ws.Select myCnt = 0」について

  'シートの1枚目を調べる時には、myCnt = 0だから、「ws.Select True」　となり、

  '2枚目以降を調べる時は、myCnt = 1だから、「ws.Select False」　となる。

  '----------------------------------------------------