Apply macro

[Hassan]

Hi All,

Is it possible to apply macro on every file in specified folder?

Thanks & Regards

Hassan

 

[Guest]

Yes it is.

 

[Joel]

Here is an example

Sub opendir()

Dim FileSize As Long
Mydir = "c:\temp"

RowCount = 1
First = True
Do

If First = True Then
Myfilename = Dir(Mydir & "\*.xls")
First = False
Else
Myfilename = Dir
End If

If Myfilename <> "" Then
Workbooks.Open (Mydir & "\" & Myfilename)

'enter you code here

Workbooks(Myfilename).Close

End If
Loop While Myfilename <> ""

End Sub