Excel to PDF

[johnbird1988]

Hello

I have the below bit of code, it works fine on my PC but on a collogues PC it errors at the "ActiveSheet.ExportAsFixedFormat...." Does anyone know why this happened. The message we also get is: "invalid procedure call or argument"

Thank you

John</SPAN>

Sub Make_Individualreport()
Dim pdfName As String
Dim spath As String
Dim KPIDATE As String
Dim stlist As Range

'Define where the list of names are
Set stlist = Worksheets("Manual Data").Range("R1:R10")
'Now we loop through the list
For Each c In stlist
'Set the cell value
Worksheets("Manual Data").Range("C7") = c.Value
'print it!
pdfName = Worksheets("Manual Data").Range("C7").Text
spath = "JDrive\Team\KPI Report\TEST\"
KPIDATE = Worksheets("Manual Data").Range("C3").Text

fname = spath & "PROTECT - COMMERCIAL " & pdfName & " KPI " & KPIDATE & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fname, Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False
'MsgBox ("Files saved in your drive")
Next c
End Sub

 

[Kyle123]

what version of Excel are they using?

 

[johnbird1988]

We are all on Excel 2007