Amendment to Trim Macro

[Dazzawm]

I have a trim macro below but it does the entire sheet. Could it be amended please so that it only does the column I highlight or a range of cells? Thanks

Sub TrimALL()
  
      Application.DisplayAlerts = True
      Application.EnableEvents = True   'should be part of Change Event macro
   If Application.Calculation = xlCalculationManual Then
      MsgBox "Calculation was OFF will be turned ON upon completion"
   End If
   Application.Calculation = xlCalculationManual
   Dim cell As Range
      Selection.Replace What:=Chr(160), Replacement:=Chr(32), _
     LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False


   On Error Resume Next 
   For Each cell In Intersect(Selection, _
      Selection.SpecialCells(xlConstants, xlTextValues))
     cell.Value = Application.Trim(cell.Value)
   Next cell
   On Error GoTo 0
   Application.Calculation = xlCalculationAutomatic
   End Sub

 

[Dazzawm]

I need the code not only to remove spaces before and after data but if there is double spaces and hidden apostrophes also. Thanks

 

[Dazzawm]

Any ideas anyone please? Needed for work.

 

[Rick Rothstein]

I need the code not only to remove spaces before and after data but if there is double spaces and hidden apostrophes also.

What I highlighted in red seems to contradict what I highlighted in blue. Can you give us a clear statement of what you are wanting to do?

 

[Dazzawm]

What I highlighted in red seems to contradict what I highlighted in blue. Can you give us a clear statement of what you are wanting to do?

The code needs to remove leading and trailing spaces, more than single spaces within data and any hidden apostrophes.