Textbox input as file location for data merge

[excelman45]

Sub MergeHorizontally() --Courtesy of Ron de Bruin
    Dim MyPath As String, FilesInPath As String
    Dim MyFiles() As String
    Dim SourceCcount As Long, FNum As Long
    Dim mybook As Workbook, BaseWks As Worksheet
    Dim sourceRange As Range, destrange As Range
    Dim Cnum As Long, CalcMode As Long

    ' Change this to the path\folder location of the files.
    MyPath = " File Location" 
    ' I would like for this location to be the path entered in a textbox on   Sheet1

Any ideas on how I can make this work? Thanks!

[shg]

Please take a few minutes to read the forum rules, and then edit your post to add code tags.

Thanks.

[excelman45]

I was not able to figure out how to make this work with a textbox; however, I was able to set the path equal to the value of a cell (B3) and that worked just fine. It doesn't look as good, but it gets the job done.

' Change this to the path\folder location of the files.
    MyPath = Range("B3")