I'm using Custom UI Editor.
Here one part of the code. I'm getting a Run-time error '424' Object reqired
Any clue?
Sub multiplication(control As IRibbonControl)
Dim sTextBoxValue As String
Dim sValue As String
Dim xTextBoxValue As Double
Dim xValue As Double
Dim c As Range
sTextBoxValue = Editbox1.Value
If IsNumeric(sTextBoxValue) = True Then
xValue = CDbl(sTextBoxValue)
For Each c In Selection
sValue = c.Value
If IsNumeric(sValue) = True Then
c.Value = c.Value * xValue
End If
Next c
Else
MsgBox "Error! The value entered '" & sTextBoxValue & " is NOT a NUMBER."
End If
End Sub
Bookmarks