Copy Cell Value to VBA

I have several references to a specific path in my code. For example:

 sFile = "C:\Users\User1\Dropbox\z_sync_do_not_delete\Downloads\*.*"
    If Dir(sFile) = "" Then
        MsgBox "You have already completed this step. Please download reports now."
        Exit Sub
    End If
Kill "C:\Users\User1\Dropbox\z_sync_do_not_delete\Downloads\*.*"

This path is different on different computers. I have a "Setup" sheet where the workbook parameters are entered. I want to enter a path on A7 of Setup that my code will forever refer to. Can this be done?

Sub SelectFolder()
Dim sFolder As String
    ' Open the select folder prompt
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = -1 Then ' if OK is pressed
            sFolder = .SelectedItems(1)
        End If
    End With
    
    MsgBox sFolder
    
    If sFolder <> "" Then ' if a file was chosen
        ' *********************
        ' put your code in here
        ' *********************
    End If
End Sub

https://wellsr.com/vba/2016/excel/vb...gFolderPicker/

Maybe start with

 sFile = Sheets("Setup").Range("A7").Value

You're welcome. Thanks for the rep.



If you are satisfied with the solution(s) provided, please mark your thread as Solved.


New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

Or you can use this way:

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save


You may also want to consider thanking those people who helped you by clicking on the little star at the bottom left of their reply to your question.