I have created a macro to isolate certain data based on a variable
loop. I would like to print the data to a pdf file. I was able to get
it to print but it always uses the same filename; "Group" The
following code in a k loop works to make fn$ the filename I desire; I
checked it by sending the fn$ to sequential cells of a sheet.

How can I get the pdf filename to change within the loop?
Thanks for any help.
Charlie




s$ = Str(k)
If k < 10 Then s$ = "0" & Right(s$, 1) Else s$ = Right(s$, 2)
fn$ = "Group" & s$ & ".pdf"

filename:=fn$
ActiveWindow.SelectedSheets.PrintOut Copies:=1