L

Case Case

oCell = LCase(oCell.Text) oCell = UCase(oCell.Text) oCell = UCase(Left(oCell.Text, 1)) & _

LCase(Right(oCell.Text, Len(oCell.Text) - 1))

oCell = Application.WorksheetFunction.Proper(oCell.Text)

1).Font.Size lCap = oCell.Characters(1, sCap = Int(lCap * 0.85) 'Small caps for everything. oCell.Font.Size = sCap oCell.Value = UCase(oCell.Text) strTest = oCell.Value 'Large caps for 1st letter of words. strTest = Application.Proper(strTest) For i = 1 To Len(strTest)

If Mid(strTest, i, 1) = UCase(Mid(strTest, i, 1)) Then oCell.Characters(i, 1).Font.Size = lCap End If Next i

End Select

Next

Exit Sub NoText:

MsgBox "No text in your selection @ " & Selection.Address

End Sub

0 0

Post a comment