Loop running really slow...?

paul.robinson@it-tallaght.ie wrote:
> Hi
> It is probably all the selecting you are doing
> e.g.
> ActiveCell.Offset(1, -18).Select
> ActiveCell.Interior.ColorIndex = 44
>
> can be replaced with
> ActiveCell.Offset(1, -18).Interior.ColorIndex = 44
>
> Try doing similar replacements throughout your code to eliminate as
> many selects as you can (ideally all of them!!)
> regards
> Paul
>



so i should do something like:

ActiveCell.Offset(0, 1).Formula = strForm1 & Arr(m, 5) & ",0)"
ActiveCell.Offset(0, 1).Interior = 44

but does that mean it will skip over 2?

can i reference the range? and then pop in the formula?

i turned off the calculations

Application.Calculation = xlManual

wow! instant results!!!