Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Toggles text wrap alignment for selected cells

Sub ToggleWrapText()     If TypeName(Selection) = "Range" Then       Selection.WrapText = Not ActiveCell.WrapText     End If End Sub