I have this macro. It works by the way I can find four by four all names from cells 3 -> 9 and when equal to the unique name in cell 10 identify these by ucase replacement.
is able to
[VBA]Sub Ucase()
Dim R
Ro = 12
Ru = 15
For R = 12 To 135 Step 4
For E = Ro To Ru
Testo = UCase(Cells(E, 10))
Range(Cells(R, 3), Cells(R + 3, 9)).Replace What:=Cells(E, 10), Replacement:=Testo, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Next
Ro = Ro + 4
Ru = Ru + 4
Next
End Sub[/VBA]
Now I need a macro that works the same way but that is able to recognize not only a single name in cell 10 but what is in a range. I tried this way:Range(Cells(R, 3), Cells(R + 3, 9)).Replace What:=Range (Cells(E, 10), Cells(E+10,10)), but does not work.
Pls help
sasa