Hi
Maybe i'm just being a bit dumb on this one. I want to leave the user facing a spreadsheet that has freezpanes and autofilter already set. All the rest of the formatting is done elsewhere in the program, and I just have these two elements to sort out.

Alan


*- Finish
oSheet.PageSetup.PrintArea = "$A$1:$S$8800"

oSheet.Range("A8").Select
oSheet.FreezePanes = "True"

oSheet.Range("A8:S8800").Select
oSheet.Selection.AutoFilter