Exceldatei verdoppelt seine Größe??

Sub ZeilenAnzahlDerBlätterKontrollieren()
  
  Const c_MAX_ZEILEN_PRO_MELDUNG = 20
  Const c_BREITE_ZEILEANGABE = 5
  
  Dim r As Long, ws As Worksheet
  Dim l_zaehler As Long, s_tmp As String, s_r As String
  Dim l_AnzLeerzeichen As Long, l_AnzStellen As Long
  
  s_tmp = Die Tabelleblätter haben folgende Zeilenanzahl & vbLf & vbLf
  
  l_zaehler = 0
  For Each ws In Worksheets
    
   ->Meldungpro Blatt zusammenstellen
    r = ws.UsedRange.Rows.Count
    s_r = r
    l_AnzLeerzeichen = c_BREITE_ZEILEANGABE - Len(s_r)
    If l_AnzLeerzeichen < 0 Then l_AnzLeerzeichen = 0
    l_AnzStellen = Len(s_r)
    s_tmp = s_tmp & _
            Format(r, String(l_AnzLeerzeichen, _) & _
                      String(Len(s_r), 0)) _
            & vbTab & ws.Name & vbLf
    
   ->max. Zeilenanzahl pro Meldung erreicht ?
    l_zaehler = l_zaehler + 1
    If l_zaehler = c_MAX_ZEILEN_PRO_MELDUNG Then
      MsgBox (s_tmp): s_tmp = : l_zaehler = 0
    End If
  Next
  If l_zaehler <> 0 Then MsgBox (s_tmp)
End Sub