Public Sub NewList()
Dim a() As String
a = Split(ActiveSheet.Name)
ActiveSheet.Copy , Sheets(Sheets.Count)
ActiveSheet.Name = DatePart("d", DateAdd("d", 1, Date)) & " " & a(1)
End Sub

Часто встречаюсь с документами, в которых текст выравнивается по ширине. При этом, если в последней строчке всего два или три слова, то она так же растягивается на всю ширину страницы. Гигантские пробелы выглядят ужасно и не эстетично как на экране монитора, так и в распечатанном виде.

Те, кто пытаются найти решение в интернете, как правило,…