Excel VBA – Scan Column Range

Hello

I need to amend the range of columns. Instead of going from G to L, I need it to go from G to J, and include L. That means Column K is omited. Here is the code:

For i = 103 To 108 ‘Column G to L 103-108
Worksheets(“SGAUST”).Activate
If Len(Range(Chr(i) & intActiveRow).Value) < 2 Then Else intSeq = intSeq + 1 strETA = Convert_Date(CDate(Range(Chr(i) & intActiveRow).Value)) strPort = Convert_Port(CStr(Range(Chr(i) & PORTROW).Value)) What should I do? I tried to change to: For i = 103 To 106 & 108 But I had an error on the Len line. Pls advise. Thanks in advance.