Delete empty space before and after cells - VBA

[ToseSenpai]

Hi all,
there is a way to delete space before and after into cells with vba (Range B7-B50)?
I prefer VBA instead of formulas because i will insert the list of number in a columns and then press a button that "clear" my numbers from undesired space.


Thank you all for the help

 

[Joe4]

Assuming that these are normal spaces and not some special characters, here is one way to do it:

Sub TrimCells()

    Dim cell As Range
   
    Application.ScreenUpdating = False
   
    For Each cell In Range("B7:B50")
        cell.Value = Trim(cell.Value)
    Next cell
   
    Application.ScreenUpdating = True
   
End Sub

 

[ToseSenpai]

Assuming that these are normal spaces and not some special characters, here is one way to do it:

Sub TrimCells()

    Dim cell As Range
  
    Application.ScreenUpdating = False
  
    For Each cell In Range("B7:B50")
        cell.Value = Trim(cell.Value)
    Next cell
  
    Application.ScreenUpdating = True
  
End Sub

Grazie mille

 

[Joe4]

You are welcome.
Glad I was able to help!