Macro running slow after adding a range in name manager

[mingandmong]

Hi im running excel 2010

i have a small macro that changes the font size in coulumn "K" and runs fine

After adding 4 ranges in the name manager which is a index match formula and has no referance to the cells in column "K" the macro runs at a snails pace i delete the ranges and the macro runs as it should any ideas

The 4 ranges are
=INDEX('Core Lables'!$AW$2:$AW$3,MATCH('Core Lables'!$H$2,'Core Lables'!$AV$2:$AV$3,0))
=INDEX('Core Lables'!$AW$2:$AW$3,MATCH('Core Lables'!$H$3,'Core Lables'!$AV$2:$AV$3,0))
=INDEX('Core Lables'!$AW$2:$AW$3,MATCH('Core Lables'!$H$4,'Core Lables'!$AV$2:$AV$3,0))
=INDEX('Core Lables'!$AW$2:$AW$3,MATCH('Core Lables'!$H$5,'Core Lables'!$AV$2:$AV$3,0))

The macro is

Sub FontSize()

Dim Cl As Range

For Each Cl In Range("k2", Range("k" & Rows.Count).End(xlUp))
With Cl
.Value = .Value
.Font.Name = "Arial"
.Font.Size = 20
.Characters(1, 1).Font.Size = 99
End With
Next Cl

End Sub

 

[footoo]

Check whether settinng calculation to manual makes any difference.
You don't need a loop :

Sub FontSize()
Application.Calculation = xlCalculationManual
With Range("k2", Range("k" & Rows.Count).End(xlUp))
    .Value = .Value
    .Font.Name = "Arial"
    .Font.Size = 20
    .Characters(1, 1).Font.Size = 99
End With
Application.Calculation = xlCalculationAutomatic
End Sub

 

[mingandmong]

Hi footoo
you have resolved my issues