VBA application.Caller type

[Cityroller]

I am creating a spreadsheet in which I am able to click a control button to bring up a form to enter dates, amounts, etc. It was working. Then it stopped. I wish I knew exactly what I changed, but I started receiving the run-time 13, type mismatch error on the line that assigns application.caller to buttonPress. Application.caller brings up "Button 7," a string. I tried not declaring the variable buttonPress and received the same error.
Originally this worked. What am I missing? Thank you.

Public whichButton As Integer, dataCell As Integer
Dim rowCount As Integer
Dim buttonNumber As String, buttonPress As String

Private Sub CommandButton1_Click()

If TextBox1.Value = "" Or TextBox2.Value = "" Or TextBox3 = "" Then
If MsgBox("Incomplete entry.  Continue?", vbQuestion + vbYesNo) <> vbYes Then
Exit Sub
End If
End If

If TextBox1.Value > WorksheetFunction.EoMonth(e2, 0) Then
MsgBox ("Exceeds current month.")
Call resetForm
debitBox.Show
Exit Sub
End If

If Not IsNumeric(TextBox1) Or Not IsNumeric(TextBox2) Then
MsgBox ("Needs a number")
Call resetForm
debitBox.Show
Exit Sub
End If

If Len(TextBox3) > 11 Then
MsgBox ("Comment too long")
Call resetForm
debitBox.Show
Exit Sub
End If

buttonPress = Application.Caller
buttonNumber = Mid(buttonPress, 8, 2)
whichButton = CInt(buttonNumber)

Call enterData
Call resetForm
debitBox.Hide
End Sub

 

[ranman256]

13 means you are trying to use a string in a numeric field.
you cannot put "14" into a number variable/field, or date field.

im not sure what a Application.Caller returns.

 

[Cityroller]

Thank you. Application.Caller returns a string, and the variable is formatted as a string. Because I want the number from the end of the string, I've isolated it in the three lines above "Call enterData." It worked. Then it stopped working.

Thanks for your answer.

 

[Norie]

Check the value of buttonNumber.