I am trying to trim excess spaces off a range of cell values. I am using the following code with no luck:
Option Explicit
Dim i As Integer, j As Integer, Shit As String
Sub FixIt()
For j = 1 To 12
For i = 1 To 32
Shit = Cells(i, j).Value
Trim (Shit)
Next i
Next j
End Sub
Any help would be appreciated.
Option Explicit
Dim i As Integer, j As Integer, Shit As String
Sub FixIt()
For j = 1 To 12
For i = 1 To 32
Shit = Cells(i, j).Value
Trim (Shit)
Next i
Next j
End Sub
Any help would be appreciated.