Option Explicit

Sub esportacerchi()
'nel foglio corrente si ipotizza di avere le colonne X,Y,Raggio come colonne A,B e C (colonna 1,2 e 3)
'e i dati che partono dalla seconda riga (la prima ha le intestazioni)
    Dim acad, dwg
    Dim riga
    Dim cen(0 To 2) As Double
    Dim rad As Double
    Set acad = Nothing
    Set dwg = Nothing
    On Error Resume Next
    Set acad = GetObject(, "AutoCAD.Application")
    If acad Is Nothing Then
        Set acad = CreateObject("AutoCAD.Application")
        acad.Visible = True
    End If
    Set dwg = acad.activedocument
    If dwg Is Nothing Then
        Set dwg = acad.documents.Add
    End If
    On Error GoTo 0
    riga = 2 'riga da analizzare: inizia con la seconda
    While Cells(riga, 1) <> ""
        cen(0) = Cells(riga, 1).Value 'colonna 1
        cen(1) = Cells(riga, 2).Value 'colonna 1
        rad = Cells(riga, 3).Value 'colonna 3
        dwg.modelspace.addcircle cen, rad
        riga = riga + 1
    Wend
End Sub