VBA Code to remove text wrap for a range of cells in Excel

Sub RemoveTextWrap()
    'Replace A1:C10 with the range of cells you want to remove text wrap from
    Range("A1:C10").WrapText = False
End Sub

This code will remove text wrap for the cells in the range specified in the code. Replace "A1:C10" with the range of cells you want to remove text wrap from. The .WrapText property will be set to False, which will cause the cell contents to overflow into adjacent cells instead of wrapping within the cell.