Gizlenmiş sayfadan veri çekme hatası

[sirkülasyon]

Private Sub UserForm_Activate()
  Dim c, sh As Range, dic As Object
  Set sh = Sheets("KODLAR") 'Bu sayfa Gizlenmiştir
  Set dic = CreateObject("Scripting.Dictionary")
  For Each c In sh.Range("A2", sh.Range("A" & Rows.Count).End(xlUp))
    dic(c.Value) = Empty
  Next
  ComboBox1.List = dic.keys
End Sub

Set sh = Sheets("KODLAR") kısmı sürekli hata veriyor. Sebebi ne olabilir? Çözüm yolu için ne yapabilirim?

 

[ÖmerFaruk]

sh değişkenine RANGE tipi tanımlamışsınız.
Worksheet olarak tanımlamanız gerekir

 

[sirkülasyon]

teşekkür ederim . Sağ ol