Application.ScreenUpdating = False Worksheets(“Sheet1″).Cells.ClearContents Dim qry As QueryTable Dim FilNams As Variant Dim FilNamCntr As Long Dim strQryName As String Dim LastRow As Long Dim ContainerWB As Workbook Dim msgString As String Dim rng As Range Dim iCol As Integer Dim lastCell As Integer FilNams = Application.GetOpenFilename(FileFilter:=”Text Files (*.csv),*.csv”, _ Title:=”Select Textfile to Import”, _ […]
