I would like to format a column of cells to allow for me to enter text and
for the cells to automatically make the txt ini all capital letters. HOw can
this be done please? Thanks in advance.

First, select the column and select the cell format to be text
Second, touch the CAPS LOCK key
third, type
--
Gary's Student


"Fonz" wrote:

I would like to format a column of cells to allow for me to enter text and
for the cells to automatically make the txt ini all capital letters. HOw can
this be done please? Thanks in advance.

Bravo, sometimes the simplest solutions are the best! :)

"Gary''s Student" wrote:

First, select the column and select the cell format to be text
Second, touch the CAPS LOCK key
third, type
--
Gary's Student


"Fonz" wrote:

I would like to format a column of cells to allow for me to enter text and
for the cells to automatically make the txt ini all capital letters. HOw can
this be done please? Thanks in advance.

I love the sarcasm but it didn't get me where I needed to be. The whole point
is to have it done automatically in an environment where multitasking can
lead to hair loss. I found this code and used it. It works.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Target is an arguments which refers to the range being changed
If Target.Column = 2 Then
'this check is to prevent the procedure from repeatedly calling itself
If Not (Target.Text = UCase(Target.Text)) Then
Target = UCase(Target.Text)
End If
End If
End Sub

"Paul Mathews" wrote:

Bravo, sometimes the simplest solutions are the best! :)

"Gary''s Student" wrote:

First, select the column and select the cell format to be text
Second, touch the CAPS LOCK key
third, type
--
Gary's Student


"Fonz" wrote:

I would like to format a column of cells to allow for me to enter text and
for the cells to automatically make the txt ini all capital letters. HOw can
this be done please? Thanks in advance.

Why bother testing, just upshift it

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
application.enableevents = false
'Target is an arguments which refers to the range being changed
If Target.Column = 2 Then
Target = UCase(Target.Text)
End If
application.enableevents = true
End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Fonz" wrote in message
...
I love the sarcasm but it didn't get me where I needed to be. The whole
point
is to have it done automatically in an environment where multitasking can
lead to hair loss. I found this code and used it. It works.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Target is an arguments which refers to the range being changed
If Target.Column = 2 Then
'this check is to prevent the procedure from repeatedly calling itself
If Not (Target.Text = UCase(Target.Text)) Then
Target = UCase(Target.Text)
End If
End If
End Sub

"Paul Mathews" wrote:

Bravo, sometimes the simplest solutions are the best! :)

"Gary''s Student" wrote:

First, select the column and select the cell format to be text
Second, touch the CAPS LOCK key
third, type
--
Gary's Student


"Fonz" wrote:

I would like to format a column of cells to allow for me to enter
text and
for the cells to automatically make the txt ini all capital letters.
HOw can
this be done please? Thanks in advance.

Perhaps you should have made it clear in your first post what 'the whole
point of it was'. I certainly did not find the replay sarcastic. If you are
going to ask a simple question you will get a simple response, if you want
something more in depth make that clear in your intial question.

"Fonz" wrote:

I love the sarcasm but it didn't get me where I needed to be. The whole point
is to have it done automatically in an environment where multitasking can
lead to hair loss. I found this code and used it. It works.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Target is an arguments which refers to the range being changed
If Target.Column = 2 Then
'this check is to prevent the procedure from repeatedly calling itself
If Not (Target.Text = UCase(Target.Text)) Then
Target = UCase(Target.Text)
End If
End If
End Sub

"Paul Mathews" wrote:

Bravo, sometimes the simplest solutions are the best! :)

"Gary''s Student" wrote:

First, select the column and select the cell format to be text
Second, touch the CAPS LOCK key
third, type
--
Gary's Student


"Fonz" wrote:

I would like to format a column of cells to allow for me to enter text and
for the cells to automatically make the txt ini all capital letters. HOw can
this be done please? Thanks in advance.