Per

Thanks for the prompt reply.

I can't try your solution until I get to work tomorrow. However, I'm not
sure from your lines of code where abouts I need to store my unique
identifier. I'm also using Excel 2003 so presumably from the comment from
Eric, I'll need to have a go with your second post.

Thanks again

Under Pressure

"Per Jessen" wrote:

Hi

See if this can help you:

MyPath = "C:\Temp\"
MyFileName = "Report" & Range("A1").Value & ".pdf"

Sheets("Report").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
MyPath & MyFileName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=
_
False

Regards,
Per

"Under Pressure" skrev i
meddelelsen ...
Here's a tricky one (for me anyway)

I have a macro that reads a line of data from a sheet and presents it in a
second sheet as a report. This report also contains some fixed text and
simple graphics. The macro then prints the 'report' and goes back to the
first sheet for the next line of data ....... and so on. There are
hundreds
of rows in the sheet and therefore hundreds of printed reports.

OK so far?

What I would like to do is to save each of the 'reports' using a unique
reference taken from one of the cells in the row that has been copied onto
the report.

Any ideas?

As an addition, it would be preferable to save the report in a PDF format.

Thanks in anticipation.

Under Pressure