title: How to copy the sheet name to a column on the same sheet?
body: <p>I am using this code:</p>
  <pre><code>Function wrksht() as Variant
  wrksht = Application.Caller.Parent.Name
  End function
  </code></pre>
  <p>I am continuously being thrown</p>
  <blockquote>
  <p>run time error '424' object not found</p>
  </blockquote>
  <p>I have a workbook with several sheets, each having a date on it.</p>
  <p>I want to populate the first column on every sheet with its sheet name.</p>