Selecting File Path & inputting to cell

[WingSystems]

All -

Beginning coder attempting to write macro to attach to a CommandButton to store a selected file path (folder or file from MS File Explorer) into a specific cell "B2".

Currently having issues with the code below:

Sub GetFilePath2()
Dim filename As String
filename = Application.GetOpenFilename

Dim cell As Range
cell = Application.Range("B2")
cell.Value = filename
End Sub

Issues:

• The Open File Explorer pops up but does not allow you to select a folder, rather must "open" a file. Is there a different application than ".GetOpenFilename" I should be using?
• Getting run-time error "'91': Object variable or With block variable not set"

Thank you!

 

[Fluff]

How about

Sub WingSystems()
   Dim Fldr As String
   
   With Application.fileDialog(4)
      .AllowMultiSelect = False
      If .Show = -1 Then Fldr = .SelectedItems(1)
   End With
   MsgBox Fldr
End Sub

 

[WingSystems]

How about

Sub WingSystems()
   Dim Fldr As String
   
   With Application.fileDialog(4)
      .AllowMultiSelect = False
      If .Show = -1 Then Fldr = .SelectedItems(1)
   End With
   MsgBox Fldr
End Sub

Thank you Fluff, was looking for the .fileDialog application!

How would you be able to then input the ".SelectedItems" into a Cell (B2)?

Code below is giving me the variable not set error.

Sub GetFilePath2()
   Dim Fldr As String
   
   With Application.FileDialog(4)
      .AllowMultiSelect = False
      If .Show = -1 Then Fldr = .SelectedItems(1)
   End With
   MsgBox Fldr
   
   Dim cell As Range
   cell = Application.Range("B2")
   cell.Value = Fldr
   
End Sub

 

[Fluff]

Like

Sub WingSystems()
   Dim Fldr As String
   
   With Application.fileDialog(4)
      .AllowMultiSelect = False
      If .Show = -1 Then Fldr = .SelectedItems(1)
   End With
   Range("B2").Value = Fldr
End Sub