Dim CELLA
Dim TOTAL As Long
Dim OSSZEG(0 To 10) As Long
Dim NINCS(0 To 10) As String
Dim TALALAT As Range
CELLA = ActiveCell
KERES = Split(CELLA, ";")
Db = UBound(KERES)
Wsn = ActiveSheet.Name
Sheets("Nyitott Tételek Szállító").Select
Columns("D:D").Select


For i = 0 To Db

'On Error GoTo ErrorHandler

Set TALALAT = Selection.Find(What:=KERES(i), After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Not TALALAT Is Nothing Then
End If
OSSZEG(i) = Cells(TALALAT.Row, 15).Value
TOTAL = OSSZEG(0) + OSSZEG(1) + OSSZEG(2) + OSSZEG(3) + OSSZEG(4) + OSSZEG(5) + OSSZEG(6) + OSSZEG(7) + OSSZEG(8) + OSSZEG(9) + OSSZEG(10)
MsgBox TOTAL

'ErrorHandler:
'
' If Err = 91 Then
' NINCS(i) = KERES(i)
' MsgBox "A " & NINCS(i) & " számlaszámot nem találtam meg."
' Err.Clear
' End If


Next
Sheets(Wsn).Activate
MsgBox TOTAL