title: Transfer data to new sheet
body: <p>I have a macro to create a new worksheet, name that sheet based on the value of cell in another sheet (i.e. <code>sheet1.Range("F3").value</code>).</p>
  
  <p>After that I need to go to another sheet in the same workbook where my data is located, select certain data and transfer it to the new sheet.</p>
  
  <p>This is the code I use to create the new sheet and name it.</p>
  
  <pre><code>sub createNewSheet()
  
      sheet_name_to_creat = sheet1.range("F3").value
  
      for rep = 1 to (worksheets.count)
          if lCase(Sheets(rep).name = Lcase(Sheet_name_to_create) Then
              MagBox "This Sheet already exists"
              exit sub
          end if
      next
  
      Sheets.add after:=sheets(sheets.count
      Sheets(ActiveSheet.Name).name=Sheet_name_to_create
  
  end sub
  </code></pre>