Arrow on drop down menu disappear (excel 2010) 2 SAMPLES PICT FOR TESTING (C:\COLOUR\)

Sub PICTURE()

Dim Sh As Shape
    With Worksheets("Sheet1")
        For Each Sh In .Shapes
            'If Not Application.Intersect(Sh.TopLeftCell, .Range("G15:J29")) Is Nothing Then
                Sh.Delete
            'End If
        Next Sh
    End With
    
           
    Dim picname As String
 
    picname = Range("H7") 'This is the picture name

    Range("G15").Select 'This is where picture will be inserted

    ActiveSheet.Pictures.Insert("C:\COLOUR\" & picname & ".jpg").Select 'Path to where pictures are stored

' This resizes the picture

With Selection
.Left = Range("G15").Left
.Top = Range("G15").Top
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = 180#
.ShapeRange.Width = 192#
.ShapeRange.Rotation = 0#
End With

    
Range("H7").Select
Application.ScreenUpdating = True


End Sub