Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Toggling a Boolean property

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