How to post only the SaveAs location that a user selects to a Worksheet cell

[simora]

Trying to write the SaveAs location that a user selects to a Worksheet cell,
and to write ONLY the location without the filename used in Cell A22 & use it in a Variable.

I tried modifying code like this, http://software-solutions-online.com...aveasfilename/

but, still inelegant and not working for me. Any ideas?

[simora]

To anyone that was interested, I got this bit to work for me.

Sub PathOnly()
SelectedFiles = Application.GetOpenFilename( _
         filefilter:="Excel Files (*.xls*), *.xls*", MultiSelect:=False)
If InStrRev(SelectedFiles, "\") > 0 Then
  FolderLocation = Left(SelectedFiles, InStrRev(SelectedFiles, "\"))
End If
Cells(22, 1) = FolderLocation   ' TO POST TO A22
End Sub