title: Trying to append text with number
body: <p>I have an ID Cell in my worksheet that is numerical, and used to control row ID. I use the following line of code:</p>
  
  <pre><code>ActiveCell.FormulaR1C1 = ActiveCell.FormulaR1C1 + 1
  </code></pre>
  
  <p>to increment the ID number each time a new line is inserted. It works well to increment that cell each time when my macro runs, but I would like to append the worksheet Tab Name on the front of the number. That is when my macro shows an (Runtime Error '13', Type mismatch) with the following line:</p>
  
  <pre><code>ActiveCell.FormulaR1C1 = TabName &amp; ActiveCell.FormulaR1C1 + 1
  </code></pre>
  
  <p>TabName is generated from the following Function:</p>
  
  <pre><code>    Function TabName() As String
       Application.Volatile
       TabName = ActiveSheet.Name
      End Function
  </code></pre>
  
  <p>Any suggestions how I can get this to work?</p>
  
  <p>Regards,
  S Dimm</p>