Autofit on Visible Columns only

I have a spread sheet that is 200 lines down and approx. 78 columns wide. In some of the cells there are large amounts of "comment" type data that is used for reference.
I use "Custom Views" controlled by buttons and VBA to view the data sheet in about 6 different restricted views that allows me to present data to my audience and make changes live during a debate type meeting (hidden columns, full screen, formula bar of, different sorts on different columns etc). By restricting the views in this way we concentrate an particular aspects of the data.

My issue is that when I create a view that is only a few columns wide the row heights are still auto fitting to the data in the hidden columns and therefore rows look like a lot of blank space.

I've searched the internets various forums for ideas and come up with this vba being the best so far (see below) that allows me to size the cell on the visible data only but it steps through the entire spread sheet such that it take a minute or so to change to each view (little working circle on screen unable to do anything) before I can start working on it. When in a meeting this time feels like absolute ages with my audience sat patiently waiting (I can turn of the screen flicker with the screen updating command but you clearly still have to wait for it to complete the task).

The VBA was from a post on a forum made in 2003 so I was wondering if there is a more user friendly / quicker way I could achieve this task without the delay in excel 2010?

(My VBA is still very basic so most of this sub is quite foreign to me)

Sub sizeme()
Dim rngRow As Range
Dim rngAutofir As Range
Dim rngCopy As Range

Set rngAutofit = Range("b206")
For Each rngRow In Range("b6:b205").Rows
rngRow.EntireRow.SpecialCells(xlCellTypeVisible).Copy rngAutofit
rngAutofit.EntireRow.AutoFit
rngRow.RowHeight = rngAutofit.RowHeight
Next
rngAutofit.EntireRow.Clear

End Sub


Thanks.