Excel alzonderlijk opslaan naar PDF (Pagina einde)

[Brabo007]

Volgens mij is deze vraag nog niet gesteld.

Ik heb een excel bestand van 200 pagina's. Alle pagina's bevinden zich op 1 blad en hebben allemaal een pagina-einde. Nu wil ik alle pagina's afzonderlijk opslaan met de omschrijving van een bepaalde cel van iedere pagina. Wat voor een macro moet ik gebruiken?

Ik hoop dat ik duidelijk ben.

Alvast bedankt voor de moeite.

 

[snb]

Wees eens konkreet, plaats een voorbeeldbestand.

 

[Brabo007]

Bekijk bijlage Totaallijst.xlsx

Ik wil iedere pagina als PDF opslaan en chauffeur als bestandsnaam. Dus bijvoorbeeld 1 pagina opslaan als 100001.pdf

 

[snb]

Sub M_snb()
  Sheets.Add
  For Each it In Sheet1.UsedRange.Columns(1).SpecialCells(2).Areas
     Sheet2.UsedRange.ClearContents
     it.Resize(it.Count + 1, 3).Copy Sheet2.Cells(1)
     Sheet2.Copy
     ActiveWorkbook.ExportAsFixedFormat xlTypePDF, ActiveWorkbook.Sheets(1).Cells(2, 2) & ".pdf"
     ActiveWorkbook.Close 0
  Next
End Sub