For Next Faster

[dannie]

Hello,

I am using the below code. Is there is a way to have this go faster? Or some way for as soon as it finds the correct cell, to go to next? I am searching through about 1600 cells and 1600 cell2s. I am still new to VBA, any help would be greatly appreciated.

For Each cell In mgrrng
For Each cell2 In planrng
If cell = cell2 Then
cell.Offset(0, 128) = cell2.Offset(0, 2)
End If
Next
Next


Thank you,
D

 

[RoryA]

Add Exit For before the End If line.