T
TFMR
Dear All,
I am using following to apply macro on all files in a folder. on close of
everyfile the msg box appear, you want to save and three option Yes No
Cancel. How its possible that all the files saves and go on next file without
appearing any msg box?
Your help required with thnx
Sub list_um()
Dim F As String
Dim roww As Long
roww = 0
Dim FileLocSpec As String
FileLocSpec = "C:\Hassan\*.csv"
F = Dir(FileLocSpec)
Do Until F = ""
roww = roww + 1
Cells(roww, 1).Value = F
F = Dir
Loop
Set r = Range("A1")
While r.Value <> ""
Workbooks.Open Filename:="C:\Hassan\" & r.Value
Call Wathba
ActiveWorkbook.Save
ActiveWorkbook.Close
Set r = r.Offset(1, 0)
Wend
End Sub
I am using following to apply macro on all files in a folder. on close of
everyfile the msg box appear, you want to save and three option Yes No
Cancel. How its possible that all the files saves and go on next file without
appearing any msg box?
Your help required with thnx
Sub list_um()
Dim F As String
Dim roww As Long
roww = 0
Dim FileLocSpec As String
FileLocSpec = "C:\Hassan\*.csv"
F = Dir(FileLocSpec)
Do Until F = ""
roww = roww + 1
Cells(roww, 1).Value = F
F = Dir
Loop
Set r = Range("A1")
While r.Value <> ""
Workbooks.Open Filename:="C:\Hassan\" & r.Value
Call Wathba
ActiveWorkbook.Save
ActiveWorkbook.Close
Set r = r.Offset(1, 0)
Wend
End Sub