Suponho que a fórmula acima só funcione com datas nos EUA, uma vez que a primeira semana de calendário sempre começa no dia 1 de janeiro. Na Europa é diferente (na terminologia VB: primeiros quatro dias).
No VBA isso pode ser feito assim:
Format(datefield, "ww", vbMonday, vbFirstFourDays)
O Excel 2010 vem com uma função incorporada para a semana do calendário.