Change Range of cells to proper name

[ManUBlueJay]

I am trying to automatically change a named range to proper as part of my code. When I try the following I get a mismatch error, both named ranges are 2 cells wide 1 cell high:

Range("Range1") = WorksheetFunction.Proper(Range("Range2").Value)

 

[jmacleary]

The Proper function can only work on a single cell.

 

[Fluff]

How about

Sub ManUBlueJay()
   Dim Cl As Range
   
   For Each Cl In Range("Range1")
      Cl.Value = StrConv(Cl.Value, vbProperCase)
   Next Cl
End Sub

 

[ManUBlueJay]

Works perfect. Thanks a bunch

 

[Fluff]

Glad we could help & thanks for the feedback.