Have Solved this myself, Code below for anyone wondering,
' Check if the base name is not already added to the collection
If InStr(1, nm.Name, "CutOffTesting!_FilterD", vbTextCompare) = 0 _
And InStr(1, BaseName1, "_xlfn.", vbTextCompare) = 0 Then
On...