OK guys,

What is it I am doing wrong. I get a compile error (Next without For)
on the following piece of VBA:

For i = 2 To Lengte
If MyArray(i) < " " Then
TekstOut(j) = MyArray(i)
j = j + 1
Else
k = i - 1
If MyArray(k) = " " Then
j = j + 1
Else
TekstOut(j) = MyArray(i)
j = j + 1
End
End
Next

Do you have clue?

TIA, Remco

Remco,

Change your "End" statements to "End If".


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"Remco" wrote in message
m...
OK guys,

What is it I am doing wrong. I get a compile error (Next without For)
on the following piece of VBA:

For i = 2 To Lengte
If MyArray(i) < " " Then
TekstOut(j) = MyArray(i)
j = j + 1
Else
k = i - 1
If MyArray(k) = " " Then
j = j + 1
Else
TekstOut(j) = MyArray(i)
j = j + 1
End
End
Next

Do you have clue?

TIA, Remco