title: Run-time error '13': Type Mismatch
body: <p>I am trying to create an excel sheet in which when I select a drop down list option an input box shows up and asks the user to enter a number. This is to create a "skill planner" for a game I play. So I am using the code</p>
  
  <pre><code>Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  
  Select Case Range("A4")
  
  Case "Endurance"
  Call Module1.GetEndurance
  Case "Active Regeneration"
  Call Module2.GetActiveRegen
  
  End Select
  
  End Sub
  </code></pre>
  
  <p>in ThisWorkbook and inside Module1 is</p>
  
  <pre><code>Sub GetEndurance()
  Dim QtyEntry As Integer
  Dim MSG As String
  Const MinSkill As Integer = 0
  Const MaxSkill As Integer = 100
  MSG = "Please enter skill level between " &amp; MinSkill &amp; " and " &amp; MaxSkill
  Do
      QtyEntry = InputBox(MSG)
      If IsNumeric(QtyEntry) Then
          If QtyEntry &gt;= MinSkill And QtyEntry &lt;= MaxSkill Then Exit Do
          End If
              MSG = "... Really? I told you the valid options..."
              MSG = MSG &amp; vbNewLine
              MSG = MSG &amp; "Please enter skill level between " &amp; MinSkill &amp; " and " &amp; MaxSkill
              Loop
  Sheet2.Range("B2").Value = QtyEntry
  
  End Sub
  </code></pre>
  
  <p>Module2 has the exact same code except it's called <code>GetActiveRegen()</code> and it goes to <code>Sheet2.Range("B3").Value = QtyEntry</code>.</p>
  
  <p>When I select one of these two drop down options that input box shows up and I can put in a number, it puts that number where it's suppose to, the problem I have is that it keeps asking me to put in a number, if I hit cancel I get the error 13 message, if I put in no answer and click ok then it gives me the error 13 message. This is my first time doing programming in excel VBA and I have no real programming experience so this is getting highly frustrating. Any help will be greatly appreciated.</p>
  
  <p>The error is showing on this line:</p>
  
  <pre><code> QtyEntry = InputBox(MSG)
  </code></pre>