What is wrong with my formula code

[floridagunner]

Hello all,

I'm using the following code to enter a formula into column B which references values in column T:

'Populate Program name column with formulas now referencing values in column-T.

Dim ab As Long, c As Long
ab = Cells(Rows.Count, "T").End(xlUp).Row
For c = 2 To ab
Range("B" & c).Formula = "=IF(LEFT(T" & c & ",1)=""D"",IF(VALUE(MID(T" & c & ",6,2)) " & _
"<24,""Carbon Abatement"",""EE Reloaded""),""EEE"")"
Next c

The problem is that when Excel gets to processing this section of the code it is taking it approximately 35 minutes to process for about 42,000 rows, which I think is abnormally long.

I want to know if there is a way I can speed this process up. Is there a data type declaration that I should be using? Is long perhaps the wrong data type to be using? Should I be using a different type of code alltogether?

Any help is appreciated.

 

[Jonmo1]

Try putting the formula in all cells at the same time instead of looping..

ab = Cells(Rows.Count, "T").End(xlUp).Row
Range("B2:B" & ab).Formula = "=IF(LEFT(T2,1)=""D"",IF(VALUE(MID(T2,6,2)) " & _
"<24,""Carbon Abatement"",""EE Reloaded""),""EEE"")"

 

[floridagunner]

Thank You Jonmo1, your modification worked perfectly

 

[Jonmo1]

Glad to help, thanks for the feedback.