Return enum constant

In Excel VBA we can use the WindowState enumeration to get the current state of a given window

xlNormal = -4143
xlMaximized = -4137
xlMinimized = -4140

When I ask for the WindowState like in

Please Login or Register  to view this content.

the answer comes as

PERSONAL.XLSB = -4143
Book1 = -4140

Now the question - how could I receive the answer like:

PERSONAL.XLSB = xlNormal
Book1 = xlMinimized

(without having to set up a select case)

Grtz Bart

Although you will mean something else. Without Select Case

Please Login or Register  to view this content.

ThnX "Vraag en Antwoord" and "Kaper",

You both provided neat and compact solutions to the missing of the "backwards enumeration".

Indeed the number of enumeration constants can be quite large (as in XlRgbColor) so I think the challenge here is to construct a function to transform any enumerated property to a dictionary for further use...

Grtz Bart