Hi,

So I've been cracking on with my excel coding and feel like its all starting to make sense. A lot of what I do is checking data against other data, and one of the things I'm looking to do is to select the first cell in column A. I then want to look in column D, and work down to find when there is a match. Then this match occurs, it could highlight for instance or cut the cell and paste alongside the equivalent cell in Column A. This obviously then needs to be repeated for every value in row A. If the cell selected already matched, this is of course ok.

I'm just looking for guidance really, this is what I have so far

Sub abc()

'
Dim i As Integer
Dim j As Integer
Dim x As Long




For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
    If InStr(1, Range("D" & i), Range("A" & i)) = 1 Then
    End If
    If InStr(1, Range("D" & i), Range("A" & i)) = 0 Then
        Do Until InStr(1, Range("D" & i), Range("A" & i)) = 1
        i = i + 1
        Loop
    Else: End If
    
    
 
  
Next i

End Sub
How does this look? there is something wrong as it doesn't loop quite the way I would like it to, but I cant seem to get my head around it.

Thanks again

Alex