マクロに手を加えたいのですが・・・・・

質問

マクロに手を加えたいのですが・・・・・
下記のマクロの式があるのですが、全シートの　ＡＫ８にデーターが０以上だったら
指定の範囲のデーター週払い一覧にコピーしなさいと、　書いてあるのだと
おもうのですが・・・　（素人なので、分かりませんが）
これだと　１件だけ要らないデーターを読みこんでしまいます。
色んなシート名が有りますが、　欲しいデータのあるシート名は、
必ずSheet番号となっているので、
Sheet１～Sheet５０までのデーターから　（シートNOは、増えたりします）
Sheetの名前から　始まる等の指定をしたいのですが、
どのように　書き換えればよろしいでしょうか、
Sub test()
Application.ScreenUpdating = False
Dim Sh As Worksheet
For Each Sh In Worksheets
If Sh.Name <> "週払一覧" Then
With Worksheets("週払一覧")
If Sh.Range("AJ８").Value > 0 Then
With .Cells(.Rows.Count, 1).End(xlUp).Offset(1)
Sh.Range("AB3:AK8").Copy .Cells(1)
.Resize(6, 10).Value = Sh.Range("AB3:AK8").Value
End With
End If
End With
End If
Next Sh
Set Sh = Nothing
End Sub

私の勘ですが(笑)　If Sh.Range("AJ８").Value > 0 Thenの
IF　Sｈを　If　ｓｈ""　とか　Sh（"　"）　とか　Sh（i）とか＠とか
やりましたが　、できませんでした、
初歩的な事でしょうが、　教えてください
お願いします。

回答No.1

nattocurry · ベストアンサー

If Sh.Name <> "週払一覧" Then

↓

If Sh.Name <> "週払一覧" And Sh.Name Like "Sheet*" Then

お礼

ありがとうございます。
上手く出来ました。　たすかりました。