VBA TRIM Column

[Jeffreyxx01]

Hi guys,

can someone help to fix my macro?
Thanks,

Sub Trim_column()
 
Dim LastRow As Long
Dim Sht as Worksheet
 
Set Sht = ActiveWorkbook.Sheets("DataBase")
 
With Sht
LastRow = .Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
        .Range("A2:A" & LastRow).value = Trim(Range(“A2:A” & LastRow).Value)
      
End With
 
End Sub

 

[Jeffreyxx01]

Thanks, it works fine now.
Though if I create a button, that might not work if I don't select the sheet I wanna trim (DataBase)

 

[Fluff]

How about

Sub MyTrim()
   Dim lr As Long
   With Sheets("Database")
      lr = .Cells.find("*", , xlValues, , xlByRows, xlPrevious, , , False).Row
      With .Range("A1:H" & lr)
         .Value = .Parent.Evaluate("if({1},trim(" & .Address & "))")
      End With
   End With
End Sub

 

[Jeffreyxx01]

Thanks Fluff, i will use it this week and let you know of the outcomes.