(14/12/2023, 16:08)feraz yazdı: Helal olsun.Önemli değilde hata mesajı nedir.Örneğin aklıma gelen değişken tanımlamaması hatası olabilir.

Function benzersizFirmalar(ByVal i As Long) As Dictionary
  Dim dic As Dictionary, son As Long, say As Long, ii As Long, key As String
    say = 0
    Set dic = New Dictionary
    With ThisWorkbook.Worksheets("Özet Tablo")
        son = Worksheets(.Cells(i, 1).Value).Range("C" & Rows.Count).End(3).Row

        If son < 2 Then GoTo sonSub
        For ii = 2 To son
            key = ThisWorkbook.Worksheets(.Cells(i, 1).Value).Range("C" & ii).Value
            dic(key) = dic(key) + 1
        Next
    End With
sonSub:
    Set benzersizFirmalar = dic
End Function


Koyu renkte olan kısmını hata veriyor...