Thanks for the reply

I sorted out the problem, by amending the code slightly


Code:
 For Each wbk In Workbooks
        If wbk.FileFormat = xlcsv Then
            wbk.Close 
        End If
    Next wbk
    
End Sub