Without seeing your notpad format something like the following might work for you. Look closely at the file path and the worksheet code object to make sure they match.
Const sPath = "D:\Tests\" 'Change to suit
Dim sFil As String
Dim owb As Workbook
Dim sh As Worksheet
Set sh = Sheet1 'Change to suit
sFil = Dir(sPath & "*.txt") 'Note it opens txt format
Do While sFil <> ""
Set owb = Workbooks.Open(sPath & sFil)
owb.Close False 'Close don't save
sFil = Dir