I have a fairly simple macro that is runnning slow for some reason. Here is
the code
Application.ScreenUpdating = False
ActiveCell.Range("A1:DS1").Select
Selection.EntireColumn.Hidden = False
ActiveCell.Select
Application.Calculation = xlCalculationManual
For a = 3 To 200
If Range("D3").Offset(0, a).Value = "Hide Column" Then
Range("D3").Offset(0, a).EntireColumn.Hidden = True
Next a
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

Any ideas?
--
Thanks for your help!