Macro On Open select Rolling 12 Months

[james]

sub OnOpen

set m=ActiveDocument.Fields("MonthYear")

Select ">"& ActiveDocument.Evaluate("Num(Monthstart(addmonths(today(),-12)))") & "<=" & ActiveDocument.Evaluate("Num(monthstart(today()))")

end sub

This code works fine, except it requires the MonthYear Field to be numeric…

Anyone have any other ideas to make this cleaner?

Thanks

James