Nie wyszukuje gdy wartość liczbowa

Mam takie makro


If dd.ListIndex > -1 Then
    With Sheets("Dane")
        ee.Value = .Range("B" & _
            Application.WorksheetFunction. _
            Match(dd.Value, Range("Buhaj"), 0)).Value
               
        poz = Application.Match(ee.Value, .Range("C1:IV1"), 0)
       
    If IsNumeric(poz) Then
           poz = poz + 2
           wiersz = .Cells(.Rows.Count, poz).End(xlUp).Row
            Select Case wiersz
              Case 2
                ff.AddItem .Cells(2, poz)
              Case Is > 2
                ff.List = _
                .Range(.Cells(2, poz), .Cells(wiersz, poz)).Value
            End Select
        End If
    End With
End If

Wszystko działa dobrze, do momentu gdy w zakresie "C1:IV" nie pojawi się wartość liczbowa np. "4566" wtedy makro nie zwraca mi wartości przypisanych pod tą nazwę. W momencie gdy przed liczby dodam jakąś literę np "P4566" wtedy makro działa.

Co się dzieje? Czy ktoś może mi pomóc rozwiązać ten problem?

Przykładowy plik z makrem znajduje się już na forum np. w temacie "Gotowy rejestr".

[ Dodano: 2008-12-21, 22:59 ]

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

katkaras.opx.pl