Rich,

> With ActiveSheet.PageSetup
> .TopMargin = Application.InchesToPoints(0.5)
> .BottomMargin = Application.InchesToPoints(0.5)
>End With

Try

With <b>ExcelObj.</b>ActiveSheet.PageSetup
     .TopMargin = <b>ExcelObj.</b>Application.InchesToPoints(0.5)
     .BottomMargin = <b>ExcelObj.</b>Application.InchesToPoints(0.5)
End With