特定の文字を含むシートを選択するには

いつもお世話になっております。
特定の文字を含むシートのデータをコピーするにはどのようにしたらよろしいでしょうか。
具体的には
(1)シート名の末尾に"D"を含むシートを選択
(2)選択したシートのデータをコピー
(3)コピーしたデータを順次"Sheet1"に貼付
というマクロを組みたいのですが、(1)のところがうまくいきません。
以下のように作成してみました。

Dim sh As Worksheet
Dim lr As Long, tlr As Long

For Each sh In Worksheets
If sh.Name = "*D" Then
lr = sh.Cells(ActiveSheet.Rows.Count, 3).End(xlUp).Row
sh.Rows("3:" & lr).Copy
tlr = Sheets("Sheet1").Cells(ActiveSheet.Rows.Count, 3).End(xlUp).Row
Sheets("Sheet1").Range("A" & tlr + 1).PasteSpecial
End If
Next

4行目の sh.Name = "*D" のところがうまくないようです。
よろしくお願いします。

No.1 ベストアンサー 回答者： himajin100000 回答日時： 2006/11/07 18:47

■ IF文でのワイルドカードの使用方法

http://homepage1.nifty.com/MADIA/vb/vb_bbs2/2004 …

LIKE演算子・・・

この回答へのお礼

himajin100000さんありがとうございました。無事解決いたしました。
紹介していただいたページも今後参考にさせていただきます。

お礼日時：2006/11/08 23:08