Hi all,

I have a Range("C2:AL2"). Each cell in the range has a formula refering to cell "A1" which contains the date for the month e.g Sept sheet has "01/09/2006" . The range is formatted as "d".

I'm trying to write a macro to add the below forumla in Range("C4:AL4") when it meets these criteria

1). It's the first cell
2). When the date is a Sat

So it also needs to amend the formula when it meets the criteria

e.g for Sept
C2 for first cell
D2 for first Sat
K2 for sec Sat
R2 for third Sat
Y2 for four Sat
AF2 for fifth Sat


=INT(((C2-1461)-SUM(MOD(DATE(YEAR(C2-MOD(C2,7)+3),1,2)-1461,{1E+99,7})*{1,-1})+5)/7)

lastly I want a xlThin border for each week so going back to Sept

C4 Would have a border
D2 to J4
K4 to Q4

you get the idea.

Here's the code I have so far. 

Please Login or Register  to view this content.
Any help will be greatly appreciated.

VBA Noob

PS Sorry about the length of the post