GS was thinking very hard :
'Display progress
Application.StatusBar = "Preparing Page " _
& i - RangeToRepeat.Columns.Count _
& " of " _
& lCols - RangeToRepeat.Columns.Count

The above was cut from 'Setup_BatchPrintJob' and pasted into
'BatchPrintMyCols' at the last moment, and so some variables belong to
the former procedure. Change this as follows...

'Display progress
Application.StatusBar = "Preparing Page " _
& i - RepeatRange.Columns.Count _
& " of " _
& lCols - RepeatRange.Columns.Count

Sorry about posting that before making the changes!

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc