ошибка 91

[Kinaesthesia]

При совпадении значений в ячейках C2 и B4 выдаёт ошибку 91: жалуется на строку
Sheet2.Cells(r, val1 + 4).Comment.Text Text:=Replace(dat & ":" & Chr(13) & Chr(10) & v1 & " - " & v2, "IIK", ChrW(1055) & ChrW(1050))

Function FILL(r, val1, val2, dat, multiplier)
    With Sheet2.Range(Cells(r, val1 + 4), Cells(r, val2 + 4))
            .Borders(xlEdgeLeft).LineStyle = xlContinuous
            .Borders(xlEdgeLeft).ColorIndex = 0
            .Borders(xlEdgeLeft).TintAndShade = 0
            .Borders(xlEdgeLeft).Weight = xlMedium
            .Borders(xlEdgeRight).LineStyle = xlContinuous
            .Borders(xlEdgeRight).ColorIndex = 0
            .Borders(xlEdgeRight).TintAndShade = 0
            .Borders(xlEdgeRight).Weight = xlMedium
            .Borders(xlEdgeTop).LineStyle = xlContinuous
            .Borders(xlEdgeTop).ColorIndex = 0
            .Borders(xlEdgeTop).TintAndShade = 0
            .Borders(xlEdgeTop).Weight = xlMedium
            .Borders(xlEdgeBottom).LineStyle = xlContinuous
            .Borders(xlEdgeBottom).ColorIndex = 0
            .Borders(xlEdgeBottom).TintAndShade = 0
            .Borders(xlEdgeBottom).Weight = xlMedium
            .Interior.Color = Sheet2.Cells(r, 2).Interior.Color
    End With
    Sheet2.Cells(r, val1 + 4).AddComment
    If multiplier = 0 Then
        If val1 < 10 Then v1 = "IIK 0+0" & val1
        If val1 > 9 And val1 < 100 Then v1 = "IIK 0+" & val1
        If val1 > 100 Then v1 = "IIK " & Left(val1, Len(val1) - 2) & "+" & Right(val1, 2)
        If val2 < 10 Then v2 = "IIK 0+0" & val2
        If val2 > 9 And val2 < 100 Then v2 = "IIK 0+" & val2
        If val2 > 100 Then v2 = "IIK " & Left(val2, Len(val2) - 2) & "+" & Right(val2, 2)
    End If
    If multiplier > 0 Then
        v1 = "IIK " & Left(val1 + multiplier * 16000, Len(val1 + multiplier * 16000) - 2) & "+" & Right(val1 + multiplier * 16000, 2)
        v2 = "IIK " & Left(val2 + multiplier * 16000, Len(val2 + multiplier * 16000) - 2) & "+" & Right(val2 + multiplier * 16000, 2)
    End If
    Sheet2.Cells(r, val1 + 4).Comment.Text Text:=Replace(dat & ":" & Chr(13) & Chr(10) & v1 & " - " & v2, "IIK", ChrW(1055) & ChrW(1050))
    Range(Sheet2.Cells(r, val1 + 4), Sheet2.Cells(r, val2 + 4)).Merge
    Sheet2.Cells(r, val1 + 4) = dat
    Sheet2.Cells(r, val1 + 4).HorizontalAlignment = xlLeft
End Function