Ændre i VBA modul via VBA program

Hej
Jeg har brug for at ændre i Modul1 i et VBA-projekt.

I Module_MappingOpdateret skal 1000 rettes til 2000:

Sub MappingOpdateret()

Dim r As Long, Mapping As String


    Application.ScreenUpdating = False
   
'Gennemløber kolonnen H indtil blank mødes
    With ActiveWorkbook.Sheets("Mapping")
        For r = 3 To 1000
            Mapping = .Range("H" & CStr(r)).Value
            If Mapping <> "" Then
                'Undersøg om Mapping findes i listen
                If FindMapping(Mapping) = False Then
                    MsgBox "Mapping [" & Mapping & "] findes ikke som regnskabspost. " & vbLf & "Vælg en eksisterende mappping.", , "Kontrol"
                    ActiveWorkbook.Sheets("Mapping").Range("H" & CStr(r)).Select
                    Exit Sub
                End If
            Else
                MsgBox "Mapping kontrolleret.", , "Kontrol"
                LS
                Exit Sub
            End If
        Next r
    End With
   
    Application.ScreenUpdating = True
   
        ActiveWorkbook.Sheets("Mapping").Activate
End Sub

Er der en som kan hjælpe (jeg har et password på VBA projektet)?