Tried this and thought I had it, NOT! Can anyone see what's wrong here. Any used cells in Column "A" contain a custom number
EI: 59-IQ-1, 59-IQ-2, 59-IQ-3, ...
Could that be the problem.
Macro Prints but all formated cells. I need the column formated.
Sub PrintSummary()
' PrintSummary Macro
' Macro by Cindy Robinson
Dim LastRow As Long
If WorksheetFunction.CountA(Cells) > 0 Then
LastRow = Cells.Find(What:="*", After:=[A1], _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
ActiveSheet.UsedRange.Select
ActiveSheet.PageSetup.PrintArea = UsedRange
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=False
End If
End Sub