title: Test or check if sheet exists
body: <pre><code>Dim wkbkdestination As Workbook
  Dim destsheet As Worksheet
  
  For Each ThisWorkSheet In wkbkorigin.Worksheets 
      'this throws subscript out of range if there is not a sheet in the destination 
      'workbook that has the same name as the current sheet in the origin workbook.
      Set destsheet = wkbkdestination.Worksheets(ThisWorkSheet.Name) 
  Next
  </code></pre>
  
  <p>Basically I loop through all sheets in the origin workbook then set <code>destsheet</code> in the destination workbook to the sheet with the same name as the currently iterated one in the origin workbook.</p>
  
  <p>How can I test if that sheet exists? Something like:</p>
  
  <pre><code>If wkbkdestination.Worksheets(ThisWorkSheet.Name) Then 
  </code></pre>