выравнивание - перенос по словам

[Kraimon]

Не подскажите что мне нужно добавить в макросе чтобы зафиксировать в отключенном состоянии "выравнивание - перенос по словам"

Private Sub Worksheet_Change(ByVal Target As Range)
Me.UsedRange.Font.Size = 7
End Sub

[VictorM]

Так можно

Private Sub Worksheet_Change(ByVal Target As Range)
    With Me.UsedRange
        .Font.Size = 7
        .WrapText = False
    End With
End Sub

WrapText = True - выравнивание (перенос по словам) включено

[kuklp]

Вить, в качестве улыбки, представил себе: садится за файло какой-нить глупый зусул и пытается заголовкам присвоить .Font.Size = 10. После 146 попытки имеем копье, торчащее из монитора и зусула в больничке, с нервным срывом:-) Думаю, не стоит после каждого Change форматить весь UsedRange. Достаточно:

Private Sub Worksheet_Change(ByVal Target As Range)
if target.row=1 then exit sub' Пусть форматят заголовки    
With target
        .Font.Size = 7
        .WrapText = False
    End With
End Sub

ИМХО так меньше потормозит.