Updates


When you are referring to named ranges in your code never use the Range abbreviation [MyNamedRange].
Always prefix your enumeration values with a "en" prefix so they are not accidentally confused with named ranges.


Public Enum enEnumeration 
   MyFirstValue = 1 '0 is the default, can be overwritten to any value
   MySecondValue
   MyNamedRange1
   MyFourthValue
End Enum

Public Sub Testing()
Dim svalue As String
' Debug.Print [MyNamedRange1].Address 'this will not compile with an 'Invalid Qualifier' error
' Debug.Print [MyNamedRange2].Address
    
' svalue = Application.VLookup(20, [MyNamedRange2], 2, False)
' Debug.Print svalue ' = two
    
'this will compile but will generate a 'Type Mismatch' when actually run
'This is becuase the enumeration is being used first
' svalue = Application.VLookup(20, [MyNamedRange1], 1, False)
    
'this can be tested by running the following line
'if the named range was being used this would generate a 'Type Mismatch' error
    Debug.Print [MyNamedRange1] ' = 3
End Sub


© 2021 Better Solutions Limited. All Rights Reserved. © 2021 Better Solutions Limited TopPrevNext