I am using the union operator to join noncontiguous ranges. I want all of the data to print on one page wide. Even if I set the page setup default to "fit to one page wide by one page tall", I get each range on a separate page.
What am I doing wrong? TIA
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.Union([in!b273:d1650], [in!i273:l1650], [in!n273
1650]).Name = "NewAcctsReport"
End Sub
What am I doing wrong? TIA
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.Union([in!b273:d1650], [in!i273:l1650], [in!n273
1650]).Name = "NewAcctsReport" End Sub
