application.Dialogs(xlDialogZoom).Show

shows the dialog.

create a macro which includes it and then assign a short cut key under
Tools=Macro=Macros, select the option button.

--
Regards,
Tom Ogilvy


"Filips Benoit" wrote in message
...
Dear All,

I want to be able to open the zoombox on pressing shortcut (? a free one)
for all cells in column R and S .

Thanks³

Filip