For loop doesn't complete on the first run

[Varidian]

Hi all I have a bit of code that is basically looks to the cell 2 its right, finds the @ and returns the domain name. however, sometimes when I first run the full macro, it only completes about 30 rows even though there are 900 + rows in it.

at first, I thought it was a time issue so I put a wait in for 5 seconds. It's really bugging me

  For x = 2 To Lr
        SplitPos = InStr(1, Cells(x, 1), "@", vbTextCompare)
        Ws_Clean.Cells(x, 2).value = Mid(Cells(x, 1), SplitPos + 1)
  Next x

 

[Fluff]

Which has already been mentioned twice. Do you ever actually bother to read anything?