Changing cell color randomly for counter increment through VBA Loop

[ChauhanSaab]

Hi,

For the below goal seek macro, the counter cell AF1 changes on every iteration.
Can i add some code to change the color of the cell randomly on every counter increment till the loop completes.

Sub Goal_Seek_Range()
Dim j As Integer
Dim count As Long
count = 0

For j = 5 To 2482
Cells(j, "AH").GoalSeek Goal:=135, ChangingCell:=Cells(j, "AG")
count = count + 1
Range("AF1").Value = count
DoEvents

Next j
ActiveWorkbook.Save
End Sub

 

[Fluff]

Hi & welcome to MrExcel.
How long does it take to run that code?

 

[ChauhanSaab]

It takes around 2 hours since the base file contains many formulas that gets dynamically updated.
Mostly I run this macro before going to bed and by morning the run gets completed.

 

[Fluff]

Ok, you could use

Range("AF1").Value = count
Range("AF1").Interior.Color = j * 10000
DoEvents

But change j from Integer to Long

 

[ChauhanSaab]

Absolutely wow.
Many thanks ?

 

[Fluff]

You're welcome & thanks for the feedback.