If you have many of these to do you can select multiple cells using CTRL +
Click then run this macro.
Sub My_Circle()
Dim X, Y As Single, area As Range
'rotate through areas - this allows multiple circles to be drawn
For Each area In Selection.Areas
With area
' x and y are numbers that are a function of the
' area's height and width
X = .Height * 0.1 'adjust to suit
Y = .Width * 0.1 'adjust to suit
ActiveSheet.Ovals.Add Top:=.Top - X, Left:=.Left - Y, _
Height:=.Height + 2 * X, Width:=.Width + 1.5 * Y
ActiveSheet.Ovals(ActiveSheet.Ovals.Count) _
.Interior.ColorIndex = xlNone
End With
Next area
End Sub
Gord Dibben MS Excel MVP