title: VBA copy row height
body: <p>I am trying to create a backup copy with VBA. The problem is, that everything except the row height is being copied. I tried looking for an answer, but couldnt find anything that fits.</p>
  
  <p>Here's my code:</p>
  
  <pre><code>Application.Workbooks.Add                           ' Neue Mappe erstellen
  
  Dim counter As Integer
  Dim wbNew As Workbook
  Dim shtOld, shtNew As Worksheet
  Dim pfad As String
  Dim name As String
  
  pfad = ThisWorkbook.Path
  name = Left(ThisWorkbook.name, Len(ThisWorkbook.name) - 5)
  'MsgBox "Aktueller Pfad: " &amp; ThisWorkbook.Path
  'MsgBox Left(ThisWorkbook.name, Len(ThisWorkbook.name) - 5)
  
  Set wbNew = Application.Workbooks(Application.Workbooks.Count)
  Do While wbNew.Worksheets.Count &lt; ThisWorkbook.Worksheets.Count
      wbNew.Worksheets.Add                            ' Weitere Tabellen hinzufügen, falls nötig
  Loop
  ' Tabellen kopieren
  
  For counter = 1 To ThisWorkbook.Worksheets.Count
      Set shtOld = ThisWorkbook.Worksheets(counter)   ' Quelltabelle
      Set shtNew = wbNew.Worksheets(counter)          ' Zieltabelle
      shtNew.name = shtOld.name                       ' Tabellenname übernehmen
  
      shtOld.UsedRange.Copy                           ' Quelldaten und -format kopieren
  
      shtNew.Range("A1").PasteSpecial Paste:=8        ' Spaltenbreite übernehmen
      shtNew.UsedRange.PasteSpecial xlPasteValues     ' Werte einfügen
      shtNew.UsedRange.PasteSpecial xlPasteFormats    ' Format übernehmen
  
  
  Next
  wbNew.SaveAs pfad &amp; "\" &amp; name &amp; " " &amp; Format(Now, "YYYYMMDD hhmm") &amp; ".xlsx"
  
  
  Application.CutCopyMode = False      ' Zwischenspeicher löschen
  </code></pre>
  
  <p>'</p>
  
  <p>Anyone got an idea? Would be great!</p>