VBA to get 2nd Tuesday of month

**wotadude** · 09-18-2008, 08:02 PM

For current month, return 2nd Tuesday of the month.
If current date is in month = Sep, Dec, Mar or Jun, otherwise return null.

**martindwilson** · 09-18-2008, 08:05 PM

do you need vba or will a function do?
function is in cell formated as date

=IF(OR(MONTH(A1)={3,6,9,12}),DATE(YEAR(A1),MONTH(A1),1+((2-(3>=WEEKDAY(DATE(YEAR(A1),MONTH(A1),1))))*7)+
(3-WEEKDAY(DATE(YEAR(A1),MONTH(A1),1)))),"")

a1 can be replaced with today() else enter date in a1

**wotadude** · 09-18-2008, 11:17 PM

thats great.
i would like a bit of vba for same if possible.
thanks