Solucionado. Gracias Antoni como siempre por la ayuda.
Sub LISTAR_ARCHIVOS()
Hoja4.Activate
Dim Ruta As String
Set fso = CreateObject("Scripting.FileSystemObject")
Ruta = ActiveWorkbook.Path & "\" & Hoja1.[M3] & "\" & Hoja1.[M2] & "\"
Set CARPETA = fso.GetFolder(Ruta)
Set ficheros = CARPETA.Files
[A1].Value = Ruta
Range("A2").Select
For Each Archivo In ficheros
If Left(Archivo.Name, 2) = "CS" Then
ActiveCell = Archivo.Name
ActiveCell.Offset(1, 0).Select
End If
Next Archivo
ActiveCell.EntireColumn.AutoFit
Set fso = Nothing
Set CARPETA = Nothing
Set ficheros = Nothing
Application.ScreenUpdating = True
End Sub
Esta parte es tuya
'Assign Attachment(s)
For Each Archivo In Hoja4.Range("A2:A" & Hoja4.Range("A" & Rows.Count).End(xlUp).Row)
.Attachments.Add Hoja4.[A1] & Archivo
Next