Call NEW_ROW_MAX 
' Ist NEW_ROW_MAX eine Prozedur (Sub) oder eine Variable?
' Ich würde verschiedene Bezeichnungen wählen!
Dim BEREICH as EXCEL.RANGE
Dim i as Long
COL_MAX = Worksheets(sheetname).UsedRange.Columns.Count
' Application.CommandBars("Borders").Visible = False ' <- Kannste Löschen
' Range(Cells(1, 1), Cells(NEW_ROW_MAX, COL_MAX)).Select ist ersetzt durch
set BEREICH= Range(Cells(1, 1), Cells(NEW_ROW_MAX, COL_MAX))
BEREICH.Borders(xlDiagonalDown).LineStyle = xlNone
BEREICH.Borders(xlDiagonalUp).LineStyle = xlNone
For i = xlEdgeLeft to xlInsideHorizontal 
With BEREICH.Borders(i)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 1
End With
next i
Application.ScreenUpdating = True
Worksheets(sheetname).Activate