Compile Error: Sub or Function is not defined.

[Hailekm]

Hi all,
I am beginner in Excel VBA. Before posting this thread I have researched many similar posts but none of the suggestions solved my problem. I am getting compile error. The solver is checked in the reference. The workbook is saved under a new name. Still getting the error for the following piece of code:

Private Sub CommandButton1_Click()
Dim Area As Double, Radius As Double, Perimeter As Double, Diameter As Double
Area = Range("D11").Value
Radius = SQRT(Area / Pi())
Perimeter = 2 * Pi() * Radius
Diameter = 2 * Radius
Range("D13").Value = Perimeter
Range("D15").Value = Diameter
Range("D17").Value = Radius
End Sub

The debugger displays that it does not know (not defined )Pi() and SQRT(). I appreciate your help

 

[Jonmo1]

Welcome to the board

Try

 Radius =   Application.SQRT(Area / Application.Pi())
 Perimeter = 2 * Application.Pi() * Radius

 

[Hailekm]

Welcome to the board

Try

 Radius =   Application.SQRT(Area / Application.Pi())
 Perimeter = 2 * Application.Pi() * Radius

Thank you very much really. However, it says
Run Time Error'438':
Object doesn't support this property or method.

 

[Norie]

In the original code change SQRT to Sqr, which is VBA's equivalent of the Excel worksheet function SQRT.

 

[Hailekm]

Once again. Thank you for your help. I modified your suggestion as follows

Radius = Math.Sqr(Area / Application.Pi())
Perimeter = 2 * Application.Pi() * Radius


now it worked for me.

 

[Hailekm]

Yes I did. Thanks. You saved me.