activeworkbook ları belli bir sheet içinde seçme

[nozben]

selam,

tablo_sayısı=activeworkbook.names.count

fakat bu tüm sheetlerdekini sayıyor. Ben sadece bell bir sheetdekileri saymasını istiyorum. Bu sorunu nasıl aşabilirim?

 

[veyselemre]

[vb:1:0c6f1179a7]Sub dene()
For Each s In ActiveWorkbook.Names
If InStr(s, "Sayfa1") Then a = a + 1
Next
MsgBox a
End Sub[/vb:1:0c6f1179a7]