How to make characters small

[Guest]

I was trying to make characters appeared in some cell range to be only small.
Some generous people provided me with the following event code:

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False
If Not Application.Intersect(Target, Range("I1:I100")) Is Nothing Then
Target(1).Value = LCase(Target(1).Value)
End If
Application.EnableEvents = True
End Sub

which I put in "View Code" section of my sheet within VB. But unfortunately
it didn't affected the file (as it seems). In other words, it still doesn't
make characters small
when you write them large in those cells. What did I miss ?

Ruslan

 

[Earl Kiosterud]

Rusian,

Are you entering into column I? You might want to put a break in
Application.EnableEvents=False (put the cursor on that line and press F9).
It'll turn rust color. Then type something into column I and see if it
breaks (It'll stop with that line in yellow). If it doesn't, you may need
to type Application. EnableEvents=True into the Immediate window (View -
Immediate) and press Enter. If it does stop on that line, step through it
with F8 to see what's going on. You can Alt-Tab back to Excel to check the
sheet at any time as you step through it.