VBA Error i dont understand

[Sparkplug90]

ok i have some code..using option explicit and an error writer i know the error is an undefined lable but i dont see any

 Option Explicit
 
 Sub Macro_create()
    '' x value charachter count
    ''Dim i As integer
    ''i = Len(Cells.Value)
    '' y value character count
    ''Dim j As Integer
    ''j = Len(Cells.Value)
    '' repetitions of the whole program
    Dim r As Range
    Dim bottomA As Integer
    bottomA = Sheets("Macro").Range("A" & Rows.Count).End(xlUp).Row
    ''integer to keep adding to the bottome of the list
    Dim l As Integer
    l = 0
    On Error GoTo Errorcatch

    ''If (Range("F4:F2000") > 35737) And (Range("F4:F2000") <> "FAILED") Then
        ''If (Range("G4:G2000") = "PASS" Or "") Then
            ''If (Range("I4:I2000") <> "1 Day(s)" Or "2 Day(s)" Or "3 Day(s)" Or "4 Day(s)" Or "5 Day(s)" Or "6 Day(s)") Then
           For Each r In Sheets("Macro").Range("A2:A" & bottomA)
                ''If (Range("F4:F2000") > 35737) And (Range("F4:F2000") <> "FAILED") Then
                     '' If (Range("G4:G2000") = "PASS" Or "") Then
                       '' If (Range("I4:I2000") <> "1 Day(s)" Or "2 Day(s)" Or "3 Day(s)" Or "4 Day(s)" Or "5 Day(s)" Or "6 Day(s)") Then
                            Range("M2+l").Value = "DELAY : 1967"
                            Range("M3+l").Value = "Mouse : 1238 : 794 : LeftButtonDown : 0 : 0"
                            Range("M1085+l").Value = "Mouse : R1013 : R95 : LeftButtonUp : 0 : 0"
                            Range("M1086+l").Value = "DELAY : 272"
                            l = l + 1100
                       '' End If
                    ''End If
               '' End If
           Next r
    End Sub
Exit Sub

Errorcatch: MsgBox Err.Description

[jaslake]

Hi Sparkplug90

Is this a Named Range

Range("M2+l")

and this

Range("M3+l")

and this

Range("M1085+l")

I'd suggest using Long for this

Dim bottomA As Integer

Why? Google on integer limits excel vba.