Print to File Macro

I am trying to print to file from a command button on a worksheet. I am getting a run-time error 1004, witht the reason of: method 'Goto' of object Application failed. Here is my code:

Private Sub CommandButton1_Click()

Dim PSfilename As String
Application.Goto reference:="r2c1"
Let PSfilename = Application.ActiveCell
SendKeys PSfilename & "{ENTER}", False
ActiveSheet.Printout , PrintToFile:=True, collate:=True
PSfilename = Chr(34) & PSfilename & Chr(34)

End sub

The reference part is where the file name comes from. It is a cell on the worksheet. This code works for me in other places, doing basically the same thing, that is why I can't figure out why it isn't working. If anyone could help me out, it would be greatly appreciated. Thanks!

Jamey