T Tom Ogilvy Nov 5, 2006 #2 Dim cell as Range for each cell in selection.SpecialCells(xlConstants,xlTextValues) cell.Value = Ucase(cell.value) Next would be the basic approach.
Dim cell as Range for each cell in selection.SpecialCells(xlConstants,xlTextValues) cell.Value = Ucase(cell.value) Next would be the basic approach.
C Chip Pearson Nov 6, 2006 #4 Don, Try cell.Value = StrConv(cell.Value, vbProperCase) -- Cordially, Chip Pearson Microsoft MVP - Excel www.cpearson.com (email address is on the web site)
Don, Try cell.Value = StrConv(cell.Value, vbProperCase) -- Cordially, Chip Pearson Microsoft MVP - Excel www.cpearson.com (email address is on the web site)
