Function ImeP(KolonaImena As Range, KolonaKount As Range) As String
Dim Polje As Object
Dim Skupina As Range
Dim X As Integer
Dim MaksV As Integer
Dim Adresa As String


Set Skupina = KolonaKount
For Each Polje In Skupina.Cells

X = Polje.Value
If X > MaksV Then
Adresa = KolonaImena.Column & "," & Polje.Row
MaksV = X
ImeP = KolonaImena(Adresa) & ":" & MaksV
End If
Next Polje

End Function