Hi
It is pasting everything to one place "ticker" so you only see the
last one. You probably need to use offset like
Range("ticker").offset(n,1) to print n rows below "ticker".
regards
Paul

On Mar 14, 2:10*pm, Lightjag
wrote:
Ok I made the change, but it still only prints the last item in the list
(instead of printing each item in the list). *Vlookup is just not the issue
here, as it is just updating the report based on the value in cell A1. *

" wrote:
Hi
In first sub n is not being incremented. Put in
n = n+1
after the printout line.
Don't know what you want in your second question. What is a name? What
does "vlookup keys off A1" mean?
regards
Paul
On Mar 13, 6:18 pm, Lightjag
wrote:
Any ideas?

"Lightjag" wrote:
Ok the macro below cycles throught the list but only prints when it gets to
bottom of list. What should I change to get it to print each time is cycles
throught the list? Tks

Sub printinfo()
* * *Dim n As Integer
* * *n = 1
* * *Do
* * *Application.Goto Reference:="list"
* * *ActiveCell.Offset(n + 1, 0).Select
* * *Selection.copy
* * *Application.Goto Reference:="ticker"
* * *Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
* * * * :=False, Transpose:=False
* * *ActiveWindow.SelectedSheets.PrintOut
* * *Loop Until IsEmpty(ActiveCell.Offset(0, 1))
End Sub

"Lightjag" wrote:

Also for purposes of this ex/ I would like each name copied to cell A1, as
the vlookup keys off A1 to update the report, cycling through the list and
printing each report. -- Thanks

"Lightjag" wrote:

1) I have a report in sheet 1 that is populated by data in another sheet
using vlookup.
2) I have a range name = "list" (in sheet 1 as well, which lists ticker
symbol)
3) I would like the macro to loop through all the names in the "list" range
and print the reports.