Sub OpenFiles()
'
' Torque Macro
'
' Sneltoets: Ctrl+Shift+T
'

Dim MyFolder As String
Dim MyFile As String
MyFolder = "J:\GT-P3110\Torque\RuweData"
MyFile = Dir(MyFolder & "\*.csv")
Do While MyFile <> ""
    Workbooks.Open Filename:=MyFolder & "\" & MyFile
    MyFile = Dir
Loop
        
End Sub