Automated Import Of User Chosen File

I am trying to do an automated import, the file I'm importing comes out of an application and in its properties just shows "file" so I can't use the standard text file methods. I originally recorded a macro for the automation and have tried to amend it.

I think it is falling over in the Destination stage, or maybe I need something instead of where the ". Name =" would normally go?

Private Sub All Files()
Dim sFilename

sFilename = Application _
. GetOpenFilename("All Files (*.*), *.*")
If sFilename <> False Then
Sheets("Sheet2").Select
With ActiveSheet.QueryTables.Add(Connection:=sFilename _
, Destination:=Sheets("Sheet2").Range("A4"))
'.Name = "All Files"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True