How to plot a circle in excel?

i seem to not be able to run this properly

i feel this should be easy, am i missing something from this code?

Sub circledrawer()

Dim x

Dim y

Dim r

Dim h

Dim k

h = 101

k = 101

r = 100

x = -r

y = 0

Do

y = Sqr(-(x ^ 2 - r ^ 2))

Cells(h + x, k + y).Value = "p"

Cells(h + x, k - y).Value = "p"

Cells(h - x, k + y).Value = "p"

Cells(h - x, k - y).Value = "p"

x = x + 1

Loop Until x > r - 1

x = 0

y = -r

Do

x = Sqr(-(y ^ 2 - r ^ 2))

Cells(h + x, y + k).Value = "p"

Cells(h + x, k - y).Value = "p"

Cells(h - x, k + y).Value = "p"

Cells(h - x, k - y).Value = "p"

y = y + 1

Loop Until y > r - 1

x = 0

y = 0

End Sub

where h and k are midpoint x,y

this seems to only plot for the first loop, and not the second. any ideas?

thanks