Workbooks.Open Filename:="R:\Daily Revenue Report\Daily
Revenue\THKL-DRR.xls"
Sheets("report").Select
ActiveSheet.Unprotect
Windows("drr0107.XLS").Activate

From the code above, every month a new "drrmmyy.xls" file will be created
(where mm = month & yy = year). What codes do I need to write so that the
macro will automatically use the new filename to replace the previous month,
i.e. in feb-07 the new file will be drr0207 and this will replace the drr0107
file in the code above?

Greatly appreciate any and all forms of assistance rendered! Thanx very much
:-)

Assuming the file is made within the month it represents:

Dim sFileName as String
sFileName = "drr" & Format(Now, "mmyy") & ".XLS"

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______



"SuperLC" <(E-Mail Removed)> wrote in message
news:C6A68578-0F43-4352-A0E8-(E-Mail Removed)...
> Workbooks.Open Filename:="R:\Daily Revenue Report\Daily
> Revenue\THKL-DRR.xls"
> Sheets("report").Select
> ActiveSheet.Unprotect
> Windows("drr0107.XLS").Activate
>
> From the code above, every month a new "drrmmyy.xls" file will be created
> (where mm = month & yy = year). What codes do I need to write so that the
> macro will automatically use the new filename to replace the previous
> month,
> i.e. in feb-07 the new file will be drr0207 and this will replace the
> drr0107
> file in the code above?
>
> Greatly appreciate any and all forms of assistance rendered! Thanx very
> much
> :-)