Wow, brilliant thanks, so I assume that I add in the IsFileOpen call where the debug.print is? Like this?
Private Sub TEST_Click()
Dim c As New Collection
Dim i As Long
Call RecursiveDir(c, "F:\SFA 2021\Running projects\SSE Contracting Ltd\J32944 Centenary House Crawley (WSCC)\", "*.*", True)...