Whoops!!!
Change line below singleArea.Copy Destination:=Cells(0 + i, 1)
to:
singleArea.Copy Destination:=Cells(0 + i, 26)

"Jim May" wrote in message
news:MoAld.4028$Dk.3549@lakeread08...
Here's something of interest;
Requirements:
1) Column Z should be empty
2) Before running first of two macros -- click on #1 cell, then hold down
the control key and continue to click of any number of additional cells,
up to 20 (say for example).. Once you've select then:
3) Run Macro:

Sub CellsToGrabUp()
i = 0
Set rangeToUse = Selection
If rangeToUse.Areas.Count = 1 Then
rangeToUse.Copy Destination:=Range("Z1")
Else
For Each singleArea In rangeToUse.Areas
i = i + 1
singleArea.Copy Destination:=Cells(0 + i, 1)
Next
End If
End Sub ' the selected cells will be listed in Z1:Z20
4) Run Macro:
Sub CellsToPrint()
Dim Lr As Integer
Lr = Cells(Rows.Count, 26).End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = "Z1:Z" & Lr
ActiveSheet.PrintPreview ' change PrintPreview to PrintOut if
hard copy desired
ActiveSheet.PageSetup.PrintArea = ""
End Sub

HTH,
JMay

"Frank Kabel" wrote in message
...
Hi
do you mean 'File - Print Area'?

--
Regards
Frank Kabel
Frankfurt, Germany


Marie wrote:
I am using Excel 2003, I would like to print only the names,
addresss. Is it possible to sellect only what you need and print it,
from the cells?