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