macro help

[Guest]

Hi,

I have a macro that completes lots of stuff for me from a particular
worksheet in another workbook.

I want this part of my code....

Windows("HXTCNC DATA FOR THU 30-NOV-06.XLS").Activate

to be replaced with code that will automaticaly open the workbook with the
same name ie 'HXTCNC DATA FOR' but for TODAY()+1 in the format dd-mmm-yy.

For example if I ran the macro now it would look for the workbook
named.......

HXTCNC DATA FOR MON 04-DEC-06.XLS

Thanks in advance

 

[Guest]

This can be done in one step, but its easier to follow this way:

s = Now + 1
s1 = UCase(Application.WorksheetFunction.Text(s, "ddd")) & " "
s2 = UCase(Application.WorksheetFunction.Text(s, "dd-mmm-yy"))
s3 = "HXTCNC DATA FOR " & s1 & s2 & ".XLS"
Windows(s).Activate

 

[Guest]

Thanks for the explanation -works well !

This can be done in one step, but its easier to follow this way:

s = Now + 1
s1 = UCase(Application.WorksheetFunction.Text(s, "ddd")) & " "
s2 = UCase(Application.WorksheetFunction.Text(s, "dd-mmm-yy"))
s3 = "HXTCNC DATA FOR " & s1 & s2 & ".XLS"
Windows(s).Activate