Hello Everyone,

This has me pulling my hair out. I am trying to make a macro that will
select a range of cells, take a cell value and use it as the filename, then
use SendKeys to take that cell value and use it to avoid seeing the save as
dialog box. I am wishing to much here? CUrrently Errorsout and debugs at
the ActiveCell.Select line.

Thanks for your help!

Routing below.


Sub pdfout()
'
' pdfout Macro
' Macro recorded 6/29/2005 by Scott Zierler
'

'
Range("B1:F110").Select
Application.ActivePrinter = "Adobe PDF on Ne05:"
Selection.PrintOut Copies:=1, ActivePrinter:="Adobe PDF on Ne05:",
Collate _
:=True
ActiveCell.Select = ("$C$6")<<<ERRORS OUT HERE
Let PSFileName = Application.ActiveCell
SendKeys PSFileName & "{ENTER}", False
ActiveSheet.PrintOut , PrintToFile:=True
PSFileName = Chr(3) & PSFileName & Chr(34)

End Sub