How do I change selected colors of this vba automatically?

[VictorKZ]

Hello everybody,
I'm having trouble changing my Macro's colors when it automatically selects fields.
Does anyone have any idea how I can solve this problem?
Thanks for listening.

This code VBA i'm use:

Sub RemoveLeadingSpace()

Dim Rng, WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
  For Each Rng In WorkRng
    Rng.Value = VBA.LTrim(Rng.Value)
Next
For Each Rng In WorkRng
    Rng.Value = VBA.RTrim(Rng.Value)
Next

MsgBox ("Formula was used in this Guide")
End Sub

 

[Fluff]

Hi & welcome to MrExcel.
What exactly do you mean by "changing my Macro's colors when it automatically selects fields" that macro is not changing any colours & it doesn't select anything.

 

[VictorKZ]

Hi, i am sorry, i expressed myself wrong.
What i acctually want to do is to highlight cells

 

[VictorKZ]

Hi, i am sorry, i expressed myself wrong.
What i acctually want to do is to highlight cells whenever that macro is applied.
Can you help me?
Thanks

 

[Fluff]

Which cells?
What colour?

 

[VictorKZ]

Okay, in my first comment I added a macro that trims blank spaces in the beggig and end of a cell.
So I need that everytime this trim is apply the cell is colored to indicate that that macro was apply.

In other words, I need to highlight the cells wich my macro was apply.

Thank you!

 

[VictorKZ]

Also, the color could be yellow

 

[Fluff]

Ok, how about

Sub RemoveLeadingSpace()

Dim Rng As Range, WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
  For Each Rng In WorkRng
    Rng.Value = Trim(Rng.Value)
  Next
  Rng.Interior.Color = vbYellow
MsgBox ("Formula was used in this Guide")
End Sub

 

[VictorKZ]

Thanks a lot for the help!!!
Now is working, only thing I had to change that's it:

Sub RemoveLeadingSpace()

Dim Rng As Range, WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
  For Each Rng In WorkRng
    'Rng.Value = Trim(Rng.Value)
    Rng.Value = VBA.Trim(Rng.Value)
      Rng.Interior.Color = vbYellow
  Next
  'Rng.Interior.Color = vbYellow
MsgBox ("Formula was used in this Guide")
End Sub

 

[Fluff]

Glad to help & thanks for the feedback.