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