Apply PROPER Function to entire Worksheet?

[katarinah]

Is there a way to apply the PROPER Function (or any other Function) to the entire worksheet without having to copy and paste?


Thanks,

Katarina

 

[dan_l]

from sheet2, cell a1:


=proper(sheet1!a1)


Depress and drag

 

[Hui]

Katarina

Make sure the sheet you want to convert is the acrtive sheet before you go into VBA

Then copy the following code into a code module and execute it

[pre]

Sub Macro1()
Dim c As Range
Range("A1").Select
For Each c In Range(Selection, ActiveCell.SpecialCells(xlLastCell))
c.Value = StrConv(c.Text, vbProperCase)
Next
End Sub

[/pre]