Excel - cómo poner un punto (o imagen) sobre la celda X , Y que se indique?

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim Fil As Long, Col As Long, a As Byte, Hei As Byte, Wid As Byte

    If Target.Row = 5 Then

        If Target.Column = 2 Or Target.Column = 3 Then

           For a = 1 To 3

               Col = Cells(5, 3) + 5 + (a - 1) * 14 ' X

               Fil = Cells(5, 2) + 4                ' Y

               Hei = ActiveSheet.Shapes(a).Height

               Wid = ActiveSheet.Shapes(a).Width

               ActiveSheet.Shapes(a).Top = Cells(Fil, Col).Top + (Cells(Fil, Col).Height - Hei) / 2

               ActiveSheet.Shapes(a).Left = Cells(Fil, Col).Left + (Cells(Fil, Col).Width - Wid) / 2

           Next

        End If

    End If

End Sub