Visual Basic Abrir diferentes WorkBooks com o mesmo nome em loop

[Rob_Gianotto]

Olà, 

Por gentileza alguem sabe como consigo abrir em loop varios workbooks que contem na chave os mesmos nomes?

Por exemplo eu conheço duas variaveis do nome,
var1 = (traceability_00-04-A3-D2-9E-83) este é o nome da maquina.
var2= (2018-02-28) este é a data.

Problema:
- O nome até a data (traceability_00-04-A3-D2-9E-83_2018-02-28) é sempre o mesmo. O final nao é conhecido porque é un registro que faz a maquina a cada ciclo de operaçao e registra o horario naquele momento, 
- A minha macro funziona mas abre apenas o ultimo arquivo salvo e nao sei como chamar os outros com o mesmo nome!!!

Nomes workbooks dentro do percorso:
traceability_00-04-A3-D2-9E-83_2018-02-28T11-53-07-070.data
traceability_00-04-A3-D2-9E-83_2018-02-28T11-54-36-458.data
traceability_00-04-A3-D2-9E-83_2018-02-28T11-55-32-271.data
ecc.

Sub Controle_maquina()
Dim strPath: strPath = "Z:\PRODUZIONE\Ufficio Programmazione\reports\"
Dim sFile
sFile = Dir(strPath & "*traceability_00-04-A3-D2-9E-83_2018-02-28*.data*")

If sFile <> "" Then
Workbooks.Open Filename:=strPath & sFile
Else: MsgBox "Arquivo não encontrado !"
End If
End Sub

Obrigado
Gianotto