Declaring Procedure Variables

[Guest]

Thanks in advance for any help you can provide.
Using XL2000 on WinXP

I'm writing a procedure that uses Essbase to zoom-in or zoom-out on data
within a worksheet. I want to use the same procedure for the zoom-in as the
zoom-out, but have a variable tell the procedure what to do when it is called
(zoom-in or zoom-out). Here's my procedure declaration:

Sub Member_Zoom(ZoomDirection as ??)

When I call Member_Zoom, I want a list a possible values for ZoomDirection
to appear (i.e. In, Out) much like when you call a message box and the values
for the buttons appear (i.e. vbOkOnly, vbOk, etc).

Any ideas on how this is done? Thanks again.

 

[Tom Ogilvy]

At the top of a module

Public Enum Zoomtype
Zoom-in = -1
Zoom-out = 0
End Enum

Sub Member_Zoom(ZoomDirection as Zoomtype)


End sub

 

[Guest]

Works like a dream. Thanks, Tom.