Let user select file to open

Hi,

In much the same way as before but with an extra variable

Dim stFName As String, stfPath As String
stfPath = Application.GetOpenFilename
stFName = Left(StrReverse(Split(StrReverse(stfPath), "\")(0)), InStr(StrReverse(stfPath), "."))
Sheets("Data").Select

With ActiveSheet.QueryTables.Add(Connection:= _
        stfPath, _
        Destination:=Range("$A$1"))
        .Name = stFName

'etc...