Hi Everybody,
I'm working with an array as follows:
This works allright, but I'd like to correct the text in the cells by converting it to PROPER case.
How would I add this to the above code?
Thanks for your help!!
Erwin
I'm working with an array as follows:
Code:
Dim cellRefs() As Variant
'Code to make a selection
I = 1
For Each cell In Selection
'stores cell values in the array
cellRefs(I) = cell.Value
I = I + 1
Next
'Code to add newsheet after activesheet and paste array to newsheet
Sheets.Add After:=ActiveSheet
Cells(2, 1).Select
For I = 1 To numberOfCells
ActiveCell.Value = cellRefs(I)
ActiveCell.Offset(1, 0).Select
Next I
This works allright, but I'd like to correct the text in the cells by converting it to PROPER case.
How would I add this to the above code?
Thanks for your help!!
Erwin