VBA Vlookup not working

[DutchKevin]

Hi Friends,

Please help find me what is going wrong here. I'm bugging too long now,
inside a sub() I wrote this:

Dim BSG As Variant
Dim BGL As String
BGS = Right(Selection, 1) ' Group Number 1-9
'MsgBox BGS
BGL = Application.WorksheetFunction.VLookup(BGS, Range("BGroup"), 2, False) 'Building Group Name
'MsgBox BGL

BGS is a number 1-9 picked from the selected cell. That works and shows in the message box.
BGL uses BGS and looks for it in named range "BGroup" for second the column.

Any help is very welcome
Kevin

 

[VoG]

Try

BGS = Val(Right(Selection, 1))

 

[Andrew Poulsom]

The Right function returns a string. Try:

BGS = Val(Right(Selection, 1))

 

[DutchKevin]

Vog, Andrew,
So quick, and issue solved.

Thanks a million

Kevin