How to create a drop down list that will move a shape from cell to cell

[Cquake]

I am currently using macros to move my shape from cell to cell but am wanting to change the way I do that by using a drop down list to move it instead. The green shapes move it forward by the number of cells listed while the red does reverse. Each row width is set at 0.94. Here is the code I am presently using for the individual macros that move the ball. I have looked around the site but have not been able to find anything on this subject for using drop down list to move shapes. The home ball and visitor ball each have there own macro's for now. The drop down list would have numbers from -5 up to 80. Visitor always moves left to right and home right to left

Sub HOMENEGATIVE5()
'
' HOMENEGATIVE5 Macro
'
Current_Left = ActiveSheet.Shapes("Picture 39").Left
ActiveSheet.Shapes("Picture 39").Left = Current_Left + 45
'
End Sub

 

[pbornemeier]

You would add data validation (drop down box) to a cell with the desired + / - yardages in it and use this worksheet change event:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
     Dim Current_Left As Single
     If Not Intersect(Range("F5"), Target) Is Nothing Then
         Current_Left = ActiveSheet.Shapes("Picture 39").Left
         ActiveSheet.Shapes("Picture 39").Left = Current_Left + 9 * Target
     End If
End Sub

The code would go on the codepage of the worksheet that contains the graphic and drop down box
For this example F5 is the cell that contains the drop down box

 

[Cquake]

Thank you very much for your help. This site has helped me learn and to all I truely thank each and everyone of you.