Try: in cell C2
Data Validation List
( in sourse box write =FRA )

put this in Sheets-kode-window:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C2")) Is Nothing Then Exit Sub
MsgBox ("Selected list-value : ") & Target
End Sub
---------------------------------------------------------

is this another question ?

Can someone help me with the code to create a listbox in whatever the
activecell is?