The code should be on a single line, or split using the line
continuation character _. E.g.,
For Each Cell In ActiveSheet.UsedRange.SpecialCells( _
xlCellTypeConstants, xlTextValues)
--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
"D" wrote in message
news:DZrSc.26686$Oi.14208@fed1read04...
Jim- Thank you for the response and code... I'm getting a
syntax error on
the
For Each Cell In
ActiveSheet.UsedRange.SpecialCells(xlCellTypeConst ants,
xlTextValues)
Any ideas? I don't see it...
Thanks!
D
"Jim Rech" wrote in message
...
See if this is better:
Sub ConvertUsedRgToProperCase()
Dim Cell As Range
On Error GoTo EndThis
For Each Cell In
ActiveSheet.UsedRange.SpecialCells(xlCellTypeConst ants,
xlTextValues)
Cell.Value = StrConv(Cell.Value, vbProperCase)
Next
EndThis:
End Sub
--
Jim Rech
Excel MVP
"D" wrote in message
news:pJiSc.26663$Oi.7755@fed1read04...
| Hey guys-
| Got this code from the net, seems to work fine until now.
I'm getting an
| Error 6 Overflow problem. I don't understand VB much at
all, so can
someone
| point me along the way?
| Thanks
| D
|
| Sub Step4()
| ' ProperCase Macro
| Dim c As Range
| With ActiveSheet
| For Each c In .UsedRange
| c.Value = Application.WorksheetFunction.Proper(c.Value)
| Next
| End With
|
| End Sub
|
|