Hello,

I am using a variable to delete rows in a large spreadsheet.

Dim StartDate As Date
Dim EndDate As Date
StartDate = Now
EndDate = Workday(StartDate, 1)

I need to change EndDate so that whatever StartDate is, EndDate is the 2nd
Friday after that, unless StartDate is a Friday, in which case I need
EndDate to be the 1st Friday after that.

Can anybody change my verbage into the code needed? I've been struggling
with it for awhile now.

Many thanks in advance!

On Wed, 13 May 2009 08:56:46 -0500, "Melvin Purvis" <(E-Mail Removed)> wrote:

>Hello,
>
>I am using a variable to delete rows in a large spreadsheet.
>
>Dim StartDate As Date
>Dim EndDate As Date
>StartDate = Now
>EndDate = Workday(StartDate, 1)
>
>I need to change EndDate so that whatever StartDate is, EndDate is the 2nd
>Friday after that, unless StartDate is a Friday, in which case I need
>EndDate to be the 1st Friday after that.
>
>Can anybody change my verbage into the code needed? I've been struggling
>with it for awhile now.
>
>Many thanks in advance!
>


EndDate = StartDate + 14 - Weekday(StartDate + 1, vbSunday)

--ron

Brilliant! Thanks again.

"Ron Rosenfeld" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
>
>
> EndDate = StartDate + 14 - Weekday(StartDate + 1, vbSunday)
>
> --ron

On Wed, 13 May 2009 10:33:25 -0500, "Melvin Purvis" <(E-Mail Removed)> wrote:

>Brilliant! Thanks again.

You're welcome. Glad to help. Thanks for the feedback.
--ron