Hi

I read the post for this question (8/8/2006) and Gord Dibben's answer works
great.

Original Question:

I need to format a column so that all cell force any text entry to uppercase.

Gord Dibben's Answer:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column 8 Then Exit Sub
On Error GoTo ErrHandler
Application.EnableEvents = False
Target.Formula = UCase(Target.Formula)
ErrHandler:
Application.EnableEvents = True
End Sub


This code allows all columns up to column 8 (column H) to be affected

What I would like to know is can I nominate a particular column that this
works on.

For example I would like only column M to be affected

Thanks

JOhn

Thanks everyone, but I have worked it out

John





"John Calder" wrote:

Hi

I read the post for this question (8/8/2006) and Gord Dibben's answer works
great.

Original Question:

I need to format a column so that all cell force any text entry to uppercase.

Gord Dibben's Answer:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column 8 Then Exit Sub
On Error GoTo ErrHandler
Application.EnableEvents = False
Target.Formula = UCase(Target.Formula)
ErrHandler:
Application.EnableEvents = True
End Sub


This code allows all columns up to column 8 (column H) to be affected

What I would like to know is can I nominate a particular column that this
works on.

For example I would like only column M to be affected

Thanks

JOhn