Do Loop running slow

[pincivma]

Hi there

I did a very simple Do Loop macro. Below is the code:

Sub reinstatesformulas()

Application.ScreenUpdating = False
Range("AA106").Select
Do
ActiveCell.Select
If ActiveCell = "No Entry" Then
ActiveCell.Offset(0, -23).Select
ActiveCell.FormulaR1C1 = "=IF(R2C1=TRUE,RC[6],0)"
ActiveCell.Offset(0, 23).Select
End If
ActiveCell.Offset(1, 0).Select
Loop Until ActiveCell = "."
End Sub

This code takes 1 and 1/2 minutes to run since it has to go through 14,000 rows until it hits the end. Is there a better macro that can make this code run faster?

 

[pincivma]

My original code had a Do Loop and I had to tell Excel when to stop. So I decided to tell Excel to stop when it encountered a period. What if I deleted the line "If MyData(r, 1) = "." Then Exit Sub" I wonder if that would help fix the problem. I should give that a try.

 

[pincivma]

My original code had a Do Loop and I had to tell Excel when to stop. So I decided to tell Excel to stop when it encountered a period. What if I deleted the line "If MyData(r, 1) = "." Then Exit Sub" I wonder if that would help fix the problem. I should give that a try.

Hey it worked.

 

[Michael M]

Maybe been overthinking it ??....

 

[pincivma]

Thanks Michael and to all of those Excel experts that replied to my post. Have a good weekend.