Buttons to prompt for directroy. Paste directory location in corresponding cell.

[mamero]

I have a worksheet where I need a series of 10 buttons the user can click and specify a folder location for each. The location then needs to be pasted in the corresponding cell to the right of the button.

- - A - B
1 - "Button" - File location 1 returned from button A1
2 - "Button" - File location 2 returned from button A2
3 - "Button" - File location 3 returned from button A3
4 - "Button" - File location 4 returned from button A4
5 - "Button" - File location 5 returned from button A5
6 - "Button" - File location 6 returned from button A6
7 - "Button" - File location 7 returned from button A7
8 - "Button" - File location 8 returned from button A8
9 - "Button" - File location 9 returned from button A9
10 - "Button" - File location 10 returned from button A10


I found the below code which brings up the folder dialog box. I can't figure out how to paste the folder location in to the corresponding cell. Thanks for the help!

Sub Folder_Location()
 
  Dim Action As Variant
  Dim FolderName As String

    With Application.FileDialog(msoFileDialogFolderPicker)
      .InitialFileName = "C:\Program Files\"
      .Title = "Browse Folders"
      Action = .Show
      If Action = -1 Then
         FolderName = .SelectedItems(1)
      Else
         FolderName = ""
      End If
    End With
    
End Sub