Thanks Ron, works perfectly!

I never could have figured this out by stumbling around in Excel's VBA
Help. Is there a list of ID numbers in there someplace?

Andy

One way is to use this

Application.CommandBars("Worksheet Menu Bar").FindControl _
(ID:=855, Recursive:=True).Execute