Hi all
I did this VBA
and as far as i can see it should work. The VBA screen don't return any errors.
However nothing happen ....
It should run the script when a value is enteret in rage of cells B1 - B11
It should the change alle the letters to lowercase and the first letter in the line to capital.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Range
For Each x In Range("B1:B11")
x.Value = Application.Replace(LCase(x.Value), 1, 1, UCase(Left(x.Value, 1)))
Next
End Sub
I tested the script like this:
Sub Worksheet_Change()
For Each x In Range("B1:B11")
x.Value = Application.Replace(LCase(x.Value), 1, 1, UCase(Left(x.Value, 1)))
Next
End Sub
and then i can call it via the macro ribbon
But I want the routine to run when the range of cells is changed.
What am i missing?
I did this VBA
and as far as i can see it should work. The VBA screen don't return any errors.
However nothing happen ....
It should run the script when a value is enteret in rage of cells B1 - B11
It should the change alle the letters to lowercase and the first letter in the line to capital.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Range
For Each x In Range("B1:B11")
x.Value = Application.Replace(LCase(x.Value), 1, 1, UCase(Left(x.Value, 1)))
Next
End Sub
I tested the script like this:
Sub Worksheet_Change()
For Each x In Range("B1:B11")
x.Value = Application.Replace(LCase(x.Value), 1, 1, UCase(Left(x.Value, 1)))
Next
End Sub
and then i can call it via the macro ribbon
But I want the routine to run when the range of cells is changed.
What am i missing?