Need help with this code

[AC]

The Marco below works if I select cells with text in them, but if no cell is selected it changes the whole sheet, if cells are selected with no text I get a “run time error 1004”. What needs to be added, or changed, so if a cell is selected with no text or no cells are selected it will exit the sub. Using excel ’97 thanks

Sub change_case()
' change selected text to Proper Case
Application.ScreenUpdating = False
Dim cl As Range
For Each cl In Selection.SpecialCells(xlCellTypeConstants, 2)
cl = Application.Proper(cl)
Next cl
Application.ScreenUpdating = True
End Sub

 

[Richie(UK)]

Hi AC,

Try this link:

http://www.cpearson.com/excel/case.htm

HTH

 

[AC]

Thanks Richie, that did it