R = MsgBox("kolona:" & ImeKolone & vbNewLine & "zadnjiRed:" & zadnjiRed, _
            vbOKCancel + vbApplicationModal + vbDefaultButton1, "Napomena")
        If R = vbCancel Then
                   Exit For
        End If