Sub button2click()
'This macro gets the file names of the daily reports files
'chage files to same directory and then parce the string to file name
Dim Filt As String
Dim FilterIndex As Integer
Dim fileName As Variant
Dim Title As String
Dim i As Integer
Dim Msg As String
Dim add As String
Dim t As Integer

t = 0

Flit = "Text Files (*.txt), *.txt" & _
        "Excel Files (.xlsx), *.xlsx" & _
        "All Files (*.*), *.*"

FilterIndex = 5

Title = "Select a File to Import"

fileName = Application.GetOpenFilename(Filt, FilterIndex, Title, , True)

If Not IsArray(fileName) Then
    MsgBox "No files were selcted."
    Exit Sub
End If

For i = LBound(fileName) To UBound(fileName)
    Msg = Msg & fileName(i) & vbCrLf
    t = t + 1
    Next i
MsgBox "You selected:" & vbCrLf & Msg

For j = LBound(fileName) To UBound(fileName)
    Worksheets("Sheet1").Cells(j + 1, 2).Value = fileName(j)
    Next
    
'MsgBox (add)
MsgBox ("files selected are -" & t)


End Sub

Dim wrksht As Worksheet
Dim objList As ListObject
   
Set wrksht = ActiveWorkbook.Worksheets("fileName(1)")
Set objList = wrksht.ListObjects(1)
objList.Range.Activate