I didn't test this, but since you're hiding 11 contiguous columns, maybe just
doing them all at once would help:

Worksheets(aNombreHojas).cells(1,6).resize(1,11).e ntirecolumn.Hidden = true

ps.

You can drop that outer "with Activesheet/End with" structure. You're not
doing anything against the activesheet. (Well, not in the code you shared...)

Diego Anaya wrote:

Hi everybody, I have a macro that hide a few columns on excel model 2003, but
acttually i'm using excel 2007 and is too slow, to hide this columns takes 1
minutes, here is the code.

Application.ScreenUpdating = False
Application.Calculation = xlManual

With ActiveSheet
For i = 1 To 11
Worksheets(aNombreHojas).Columns(5 + i).Hidden = true
Next
End With

Application.ScreenUpdating = True
Application.Calculation = xlAutomatic

--

Dave Peterson