Hi All,

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

Thanks & Regards

Hassan

Yes it is.

"Hassan" <(E-Mail Removed)> az alábbiakat Ã*rta a következÅ‘ hÃ*rüzenetben: BC30192A-8DBD-423F-9961-(E-Mail Removed)...
> Hi All,
>
> Is it possible to apply macro on every file in specified folder?
>
> Thanks & Regards
>
> Hassan

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


"tomi12619" wrote:

> Yes it is.
>
> "Hassan" <(E-Mail Removed)> az alábbiakat Ã*rta a következÅ‘ hÃ*rüzenetben: BC30192A-8DBD-423F-9961-(E-Mail Removed)...
> > Hi All,
> >
> > Is it possible to apply macro on every file in specified folder?
> >
> > Thanks & Regards
> >
> > Hassan
>