My PC installed this security update automatically this past week and
now when I open a spreadsheet that I use daily with the following code
in it, I get "Automation Error-Catastrophic failure" when I
unistalled this update, the code runs fine again.

The code is:

Function NEXTSATURDAY(d As Date) As Date
Dim TestDay As Date
TestDay = d + 1
Do Until Weekday(TestDay) = 7
TestDay = TestDay + 1
Loop
NEXTSATURDAY = TestDay

Any help you can give would be appreciated.

Also, I cannot remember the character to place at the front of a line
of code to disable it.

Thanks, Steve

Use a single quote in front of a line to disable it.

Sadly, I can not get your code to fail.
--
Gary''s Student - gsnu2007k


"Steve" wrote:

My PC installed this security update automatically this past week and
now when I open a spreadsheet that I use daily with the following code
in it, I get "Automation Error-Catastrophic failure" when I
unistalled this update, the code runs fine again.

The code is:

Function NEXTSATURDAY(d As Date) As Date
Dim TestDay As Date
TestDay = d + 1
Do Until Weekday(TestDay) = 7
TestDay = TestDay + 1
Loop
NEXTSATURDAY = TestDay

Any help you can give would be appreciated.

Also, I cannot remember the character to place at the front of a line
of code to disable it.

Thanks, Steve

The apostrophe ( ' ) makes the code into a comment.

"Steve" wrote:

My PC installed this security update automatically this past week and
now when I open a spreadsheet that I use daily with the following code
in it, I get "Automation Error-Catastrophic failure" when I
unistalled this update, the code runs fine again.

The code is:

Function NEXTSATURDAY(d As Date) As Date
Dim TestDay As Date
TestDay = d + 1
Do Until Weekday(TestDay) = 7
TestDay = TestDay + 1
Loop
NEXTSATURDAY = TestDay

Any help you can give would be appreciated.

Also, I cannot remember the character to place at the front of a line
of code to disable it.

Thanks, Steve

This does not answer you basic question about the Security Update
But how about ?

Function NEXTSATURDAY(d As Date) As Date
NEXTSATURDAY = d + (7 - WorksheetFunction.Weekday(d))
End Function

best wishes
--
Bernard V Liengme
Microsoft Excel MVP
http://people.stfx.ca/bliengme
remove caps from email

"Steve" wrote in message
...
My PC installed this security update automatically this past week and
now when I open a spreadsheet that I use daily with the following code
in it, I get "Automation Error-Catastrophic failure" when I
unistalled this update, the code runs fine again.

The code is:


Any help you can give would be appreciated.

Also, I cannot remember the character to place at the front of a line
of code to disable it.

Thanks, Steve

Of course, if D is Saturday, you may wish to use
NEXTSATURDAY = d+1 + (7 - WorksheetFunction.Weekday(d+1))


--
Bernard V Liengme
Microsoft Excel MVP
http://people.stfx.ca/bliengme
remove caps from email

"Bernard Liengme" wrote in message
...
This does not answer you basic question about the Security Update
But how about ?

Function NEXTSATURDAY(d As Date) As Date
NEXTSATURDAY = d + (7 - WorksheetFunction.Weekday(d))
End Function

best wishes
--
Bernard V Liengme
Microsoft Excel MVP
http://people.stfx.ca/bliengme
remove caps from email

"Steve" wrote in message
...
My PC installed this security update automatically this past week and
now when I open a spreadsheet that I use daily with the following code
in it, I get "Automation Error-Catastrophic failure" when I
unistalled this update, the code runs fine again.

The code is:


Any help you can give would be appreciated.

Also, I cannot remember the character to place at the front of a line
of code to disable it.

Thanks, Steve