Tooltip Look Up - Mouseover or Click

I'm looking at condensing a wide worksheet, 100 columns of specific location names, into something more aesthetically pleasing.

I have a list that contains a location name and it's corresponding acronym. When a user mouses over the acronym on the worksheet with the 100 columns I'd like for the location name to display. I've mocked up an example and attached it.

Furthermore, is there a non VBA solution. I tried searching for lookups and data validation to no avail.


I feel that clicking into the cell and the tooltip displaying may be easier for our end user; however, share your thoughts.

Thanks!

Other than manually creating Comment notes... you'd need VBA.

Here's sample code.
In Standard Module:

Public ldic As Object
Sub fillDic()
Set ldic = CreateObject("Scripting.Dictionary")
myArr = Sheets("Locations").UsedRange.Value

For i = 1 To UBound(myArr)
    ldic(myArr(i, 2)) = myArr(i, 1)
Next

End Sub

In Workbook module:

Private Sub Workbook_Open()
If ldic Is Nothing Then Call fillDic
End Sub

Then in Worksheet Module for "Data" sheet:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static OldRange As Range
On Error Resume Next

If ldic Is Nothing Then Call fillDic
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("1:1")) Is Nothing Then
    If Not OldRange Is Nothing Then OldRange.Comment.Delete
    Target.AddComment "Location:" & ldic(Target.Value)
    Set OldRange = Target
End If

End Sub

See attached.