Runtime error 1004

[NJTH]

Hi! I'm fairly new to VBA and trying to teach myself some things in order to make some work of mine easier and less timeconsuming. therefore i have this code:
I would appriciate your help

Sub KleurenNIEUW()

Dim I As Integer, j As Integer, intStart As Integer
Dim Selectie As Range, vergelijk As Range
Dim spaties As String: spaties = " "

For Each Selectie In Selection.Columns
    Set vergelijk = Selectie.Offset(-1, 0)
    On Error GoTo Error
    SelectieA = Split(Selectie.Text, spaties)
    VergelijkB = Split(vergelijk.Text, spaties)
    For j = LBound(SelectieA) To UBound(SelectieA)
        For I = LBound(VergelijkB) To UBound(VergelijkB)
            If UCase(SelectieA(j)) = UCase(VergelijkB(I)) Then
                intStart = InStr(1, spaties + UCase(Selectie.Value) + spaties, spaties + UCase(VergelijkB(I)) + spaties)
                While intStart > 0
                    Selectie.Characters(Start:=intStart, Length:=Len(VergelijkB(I))).Font.ColorIndex = 0
                    intStart = InStr(intStart + 1, spaties + UCase(Selectie.Value) + spaties, spaties + UCase(VergelijkB(I)) + spaties)

                Wend
            End If
        Next I
    Next j
Next
Exit Sub
Error:
MsgBox "Please do not select multiple rows"
End Sub

Now i do want to make it even more useful for other collegues but i cant get it working. but i do have problems with it, a runtime 1004 error and cant figure it out.

Sub NIEUW()

Application.EnableEvents = False

Dim II As Integer
Dim I As Integer, j As Integer, intStart As Integer
Dim Selectie As Range, vergelijk As Range
Dim spaties As String: spaties = " "
Aantal = Application.WorksheetFunction.CountA(Range("A:A"))

Sheets("Worksheet").Select

For II = 6 To Aantal + 5
If Range("A" & II) = "OUD" Then GoTo Volgende

    Range("N" & II & ":" & "R" & II).Select
For Each Selectie In Selection.Columns
    Set vergelijk = Selectie.Offset(-1, 0)
    SelectieA = Split(Selectie.Text, spaties)
    VergelijkB = Split(vergelijk.Text, spaties)
    For j = LBound(SelectieA) To UBound(SelectieA)
        For I = LBound(VergelijkB) To UBound(VergelijkB)
            If UCase(SelectieA(j)) = UCase(VergelijkB(I)) Then
                intStart = InStr(1, spaties + UCase(Selectie.Value) + spaties, spaties + UCase(VergelijkB(I)) + spaties)
                While intStart > 0
                    Selectie.Characters(Start:=intStart, Length:=Len(VergelijkB(I))).Font.ColorIndex = 0
                    intStart = InStr(intStart + 1, spaties + UCase(Selectie.Value) + spaties, spaties + UCase(VergelijkB(I)) + spaties)

                Wend
            End If
        Next I
    Next j
Next


Volgende:
Next II
    Sheets("Worksheet").Select
    
Application.EnableEvents = True

[patel45]

The correct Section for VBA is http://www.vbforums.com/forumdisplay...ce-Development

[si_the_geek]

Welcome to VBForums

Thread moved from the 'VB.Net' forum to the 'Office Development/VBA' forum.

[westconn1]

on which line does the error 1004 occur?
does it error every time that line is called?

[NJTH]

Everytime it gives an error on:
Range("N" & II & ":" & "R" & II).Select

[westconn1]

what is the value of aantal and in turn II when the error occurs?

post a sample workbook where the error occurs?
zip first