Wondering if anyone has a simple macro they'd share that alters the default calendar month view so that the current week is scrolled to the top?

on calendar open
if view is month then
get current date
scroll calendar until current date at top
end if

Or, a macro that does the scrolling but could then be assigned to a new icon in the ribbon.
thanks,
...alan