Try
Code:
' 3b
 Let Application.DisplayAlerts = False
 w2.SaveAs Filename:=w2.FullName, FileFormat:=xlCSV
 'Let Application.DisplayAlerts = False
 w2.Close
 Let Application.DisplayAlerts = True
 
End Sub