on Worksheet_Change, UCase Selection

[2Took]

Getting "runtime error 28 out of stack space" when running below code.
And only the C10 gets Upper Cased, while the rest of pasted sells remains lower cased.
Trying to get entire pasted range Upper Cased.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("c10")) Is Nothing And Range("c10").Value <> "" Then
Call UPCaseSelection
End If
End Sub


Sub UPCaseSelection()
Dim rng As Range
Set rng = Selection
For Each cell In rng
cell.Value = UCase(cell)
Next cell
End Sub

 

[6StringJazzer]

Each time UPCaseSelection changes a cell, Worksheet_Change is called, creating infinite recursion until you run out of stack space. You need to turn off events while making changes.

Also, indent to show structure.

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Application.Intersect(Target, Range("c10")) Is Nothing And Range("c10").Value <> "" Then
      Application.EnableEvents = False
      Call UPCaseSelection
      Application.EnableEvents = True
   End If
End Sub


Sub UPCaseSelection()
   Dim rng As Range
   Set rng = Selection
   For Each cell In rng
       cell.Value = UCase(cell)
   Next cell
End Sub

 

[Joe4]

What exactly are you trying to do?
What do you do that results in this error?

Note that your code is specifically written to only run when a value is manually entered into cell C10.

Also, what 6StringJazzer said (I saw his response pop up while I was trying to detail/explain that part, so I won't repeat what he said).