Tack så mycket Lasse! Din kod fungerar ock skapar en pdf med korrekt filnamn. Jag skulle dock gärna skapa 290 olika pdf på en gång. Så koden borde urföra dess steg:

1) skriv första komunnamn i cell J16. Komunnamn tas från cell B2 i ett annat blad/worksheet.  

2) olika diagram anpassas då efter värdet i J16. Siffrorna tas från andra excelblad. Ingen kod behövs för att göra det.

3)  Rapporten sparas som pdf (helst bara första 10 sidor) med cell J16 som filnamn. Det görs med koden du skickade. Nu vill jag att nästa kommunnamn skrivs i cell J16. Det tas från cell B3 i andra bladet. Rapporten ska sparas som pdf igen och så vidare tills programmet har gått igenom helas listan med alla 290 komunnamn i cell B2:B292. Den ska alltså skapa 290 pdf.

Tror du att det är möjligt?

Med vänlig hälsning,

René

 Tack för svaret!

Jag har nu lyckats med koden. Den gör precis det jag vill och skapar 290 snygga PDF-rapporter på 5 minuter.

Sub LoopRange()

    Dim MyRange As Range

    Dim MyCell As Range

    Set MyRange = Range("BC1:BC290")

    For Each MyCell In MyRange

    ActiveSheet.Cells(16, 10).Value = MyCell

    Dim Filename As String

    Filename = ActiveSheet.Cells(16, 10).Value

    ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "/" & Filename & ".pdf", From:=1, To:=7

    Next MyCell

End Sub