If selection.TypeName = "Range" then
if selection.Count = 1 then
if not iserror(selection) then
selection.Value = ucase(selection.Value)
end if
end if
end if

--
Regards,
Tom Ogilvy


"DKY" wrote:


I'm trying to make my selection uppercase by doing something like this.

Selection.Value = ucase(Selection.Value)

and it keeps giving me a data type mismatch error. What am I doing
wrong here?


--
DKY
------------------------------------------------------------------------
DKY's Profile: http://www.excelforum.com/member.php...o&userid=14515
View this thread: http://www.excelforum.com/showthread...hreadid=565539