Macro Variable Code

[CityMPLSEmpolyee]

Is there a macro variable code that will allow the variable to look at Text and read it like a number?
I have numbers that are placed in my spread sheet as Text, and I need to get an Average of a small group of them. I have tried converting them to numbers, but that causes errors for other macros.

Dim MyVarName As ?

[davegugg]

You can convert them in the code using the CLng, CInt, CDbl, and CSng functions. For more info see the Type Conversion Functions in the VBA help.

Assuming one of your numbers written as text is in cell A1, it'd look like this:

Dim MyVarName as Double

MyVarName = CDbl(Activesheet.Cells(1, 1).Value)

[CityMPLSEmpolyee]

Thank you
I'll try this

[CityMPLSEmpolyee]

this is what I have

Sub Calulated_Average1()
    Dim oRangeSelected As Range
    Dim MyAverageIs As Double
    
On Error Resume Next
Set oRangeSelected = Application.InputBox("Please select a range of cells!", _
                                          "SelectARAnge Demo", Selection.Address, , , , , 8)
If oRangeSelected Is Nothing Then
    MsgBox "It appears as if you pressed cancel!"
Else
    MyAverageIs = Application.WorksheetFunction.Average(oRangeSelected)
    ActiveCell.Value = MyAverageIs
'message box is not needed but may help you
    MsgBox "You selected: " & oRangeSelected.Address(External:=True)
End If

End Sub

[davegugg]

Try this instead:

Sub Calulated_Average1()

Dim oRangeSelected As Range
Dim MyAverageIs As Double
Dim dblTotal As Double
Dim intCellCount As Integer
Dim c As Object

'On Error Resume Next
Set oRangeSelected = Application.InputBox("Please select a range of cells!", _
"SelectARAnge Demo", Selection.Address, , , , , 8)
If oRangeSelected Is Nothing Then
    MsgBox "It appears as if you pressed cancel!"
Else
    For Each c In oRangeSelected.Cells
        dblTotal = dblTotal + CDbl(c.Value)
        intCellCount = intCellCount + 1
    Next c
    ActiveCell.Value = dblTotal / intCellCount
    'message box is not needed but may help you
    MsgBox "You selected: " & oRangeSelected.Address(External:=True)
End If

End Sub

[CityMPLSEmpolyee]

The numbers that I am trying to work with are pasted in and they have spaces included with them from the original source.

[davegugg]

I ran your code above on some cells with numbers formatted as text and it worked as expected. If it is not working for you could you post a sample worksheet with some numbers that you are not able to average?

[CityMPLSEmpolyee]

How do I post a sample

[CityMPLSEmpolyee]

excellent it worked perfect.
thank you