|Important||This document may not represent best practices for current development, links to downloads and other resources may no longer be valid. Current recommended version can be found here. ArchiveDisclaimer|
Application.ActiveSheet Property (Excel)
Returns an object that represents the active sheet (the sheet on top) in the active workbook or in the specified window or workbook. Returns Nothing if no sheet is active.
This example displays the name of the active sheet.
This example creates a print preview of the active sheet that has the page number at the top of column B on each page.
Sub PrintSheets() 'Set up your variables. Dim iRow As Integer, iRowL As Integer, iPage As Integer 'Find the last row that contains data. iRowL = Cells(Rows.Count, 1).End(xlUp).Row 'Define the print area as the range containing all the data in the first two columns of the current worksheet. ActiveSheet.PageSetup.PrintArea = Range("A1:B" & iRowL).Address 'Select all the rows containing data. Rows(iRowL).Select 'display the automatic page breaks ActiveSheet.DisplayAutomaticPageBreaks = True Range("B1").Value = "Page 1" 'After each page break, go to the next cell in column B and write out the page number. For iPage = 1 To ActiveSheet.HPageBreaks.Count ActiveSheet.HPageBreaks(iPage) _ .Location.Offset(0, 1).Value = "Page " & iPage + 1 Next iPage 'Show the print preview, and afterwards remove the page numbers from column B. ActiveSheet.PrintPreview Columns("B").ClearContents Range("A1").Select End Sub