Changing Filename in VBA

[Guest]

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

 

[Jon Peltier]

Assuming the file is made within the month it represents:

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

- Jon