Drawing shapes using coordinates contained in cells

Hello,

I would like to insert circles on sheet (2) of my workbook using the coordinates stored in two columns on sheet (1).
These coordinates are stored as Letters (that will give me the column where to insert the shape) and Numbers (that will give me the row where to insert the shape).
Below is my code so far, but when I run it, it doesn't do much to my second worksheet, actually nothing.
Could you point out where is my mistake please?

Thank you in advance for your help.

Fred.

Sub PopulateKinomeTree()



    Dim strCells As String

    Dim LocationColumn As String

    Dim LocationRow As String

    Dim currentRow As Integer

    Dim NumberOfRows As Integer

    Dim myDocument As Worksheet

    

    

    Application.ScreenUpdating = False

        

    

    NumberOfRows = Worksheets(1).Range("D5").CurrentRegion.Rows.Count

    

     MsgBox (NumberOfRows)

    

    

    For currentRow = 2 To NumberOfRows

    

    On Error Resume Next

    

        

    LocationColumn = Worksheets(1).Range("D" & currentRow).Text

    LocationRow = Worksheets(1).Range("E" & currentRow).Text

    

    

        strCells = LocationColumn & LocationRow

   

    

    Set myDocument = Worksheets(2)



    

        myDocument.Shapes.AddShape msoShapeOval, Range("strCells").Left, _

            Range("strcells").Top, 8, 8

            

    Next currentRow

        

    Application.ScreenUpdating = True

        

    

End Sub