Autocompletion and Icons

Originally Posted by Andy Pope

You can use event code behind the spreadsheet to cell changed cell content and insert image if required.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Cells.Count = 1 Then
        If Not Union(Target, Range("B3:B10")) Is Nothing Then
            If StrComp(Target.Value, "HDD1", vbTextCompare) = 0 Then
                ActiveSheet.Shapes.AddPicture _
                            "c:\temp\temp.gif", _
                             True, True, Target.Left, Target.Top, _
                             Target.Width, Target.Height
            End If
        End If
    End If
    
End Sub

Sweet thanks, I'll try it out.
Is "case" possible in this code? To easier list more items. Or could I use a dynamic file-value so that it uses the entered text as file-name?
Ex. c:\temp\HDD1.gif would be used if [HDD1] was entered, and for all text entered within [] or maybe img[value]
I'm guessing I can figgure out how to use case in this senario, not sure if I can wrap my mind around the image location values, unless fixed for each case.
Thanks again,
Bb