Printing out PDFs without opening them

[keeegs]

Hi

In the activecell I have the full address of the file to be printed out.

Can anybody see what would be wrong with this?

I get a runtime error 438

If Not Activecell = vbNullString Then
FName = Dir(Activecell)
If FName = vbNullString Then
MsgBox "Could not find: " & Activecell, vbCritical
Else
Application.PrintOut Filename:=Activecell
End If
End If

Please help

 

[keeegs]

Any ideas for this? Does the work for other people?