Spatie verwijderen

[vhenk]

Ik heb een code voor het wissen van spaties in rij L van mij sheet.
Enkel geef hij een foutmelding.
Er wordt een hoop over geschreven maar geen duidelijke script.
Wel gelezen over Ltrim om de linker spatie te wissen maar krijg het net voor elkaar.

Sub WisSpaties()
    Dim inStr As String
    Dim x As Range
    For Each x In Selection
        inStr = x.Value
        inStr = WorksheetFunction.Substitute(inStr, " ", "")
        x.Value = inStr
        inStr = "L:L"
    Next
End Sub

De fout geef hij bij :

        inStr = WorksheetFunction.Substitute(inStr, " ", "")

Alvast bedankt
Groet Henk

 

[snb]

Deze had je kunnen weten op basis van een eerdere vraag (en antwoord)

Sub WisSpaties()
  selection.replace " ",""
End Sub

 

[vhenk]

Het kan zo makkelijk zijn

Bedankt,

Ik heb hier zeker wat aan thanks.
Ik heb er nu het volgende van gemaakt ivm dat het automatisch moet gebeuren.

Sub WisSpaties()
  Columns("E:E").Select
  Selection.Replace " ", ""
End Sub

Groet Henk

 

[snb]

Is geen verbetering
Vermijd activate en select in VBA want overbodig.

Sub WisSpaties()
  Columns(5).Replace " ", ""
End Sub