Hi,
Andreas was so kind and provided me with the function below. My question is when I put it into personal.xls how can I have it available for every workbook without placing it into every single workbook.
Function GetValue(str As String) As Double
Dim n As Integer
For n = 1 To Len(str)
If IsNumeric(Mid(str, n, 1)) Then GetValue = GetValue & Mid(str, n, 1)
Next
End Function
I appreciate your help
Andonny
Andreas was so kind and provided me with the function below. My question is when I put it into personal.xls how can I have it available for every workbook without placing it into every single workbook.
Function GetValue(str As String) As Double
Dim n As Integer
For n = 1 To Len(str)
If IsNumeric(Mid(str, n, 1)) Then GetValue = GetValue & Mid(str, n, 1)
Next
End Function
I appreciate your help
Andonny