Thank you bro. worked fine.

Dave Peterson wrote:
You could use a macro that closes all the .csv files:

Option Explicit
Sub testme01()
Dim wkbk As Workbook

For Each wkbk In Application.Workbooks
If LCase(Right(wkbk.Name, 4)) = LCase(".csv") Then
wkbk.Close savechanges:=False
End If
Next wkbk

End Sub

hello,

[quoted text clipped - 10 lines]
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...excel/200709/1


--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...excel/200709/1