In our last episode Ivan Raiminius wrote:

sorry, forgot to mention that I am using XP/O2003


Ivan

many thanks, I noticed that yesterday afternoon, but figured that it
wouldn't make that much difference as many properties use/accept both
literal and numeric index values

actually, I have to admit it was my bad - the problem was with the loop, ie
it always started at the first sheet. It dawned on me last nite. I guess
that's the problem with writing stuff that you don't use yourself...

In case anyone's interested, the fix was to get the activesheet index, then
pass that to the existing loop so that if the user is only setting up a
single sheet the loop will start at the active sheet...

<snip

If appto = "Sht" Then ShtIndex = ActiveSheet.Index Else ShtIndex = 1

For i = ShtIndex To ActiveWorkbook.Sheets.Count

</snip

many thanks

S