I have a column that I want it to always show caps when I type in text. How
can I set the formatting for this?

Thanks
--

Right click sheet tab>view code>insert this>change column to suit needs.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
Application.EnableEvents = file
Target.Value = UCase(Target)
Application.EnableEvents = True
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(E-Mail Removed)
"Doug" <(E-Mail Removed)> wrote in message
news:E16E7FA8-51A8-4CC6-A3B3-(E-Mail Removed)...
>I have a column that I want it to always show caps when I type in text. How
> can I set the formatting for this?
>
> Thanks
> --
>

Right click the sheet tab>View code and paste the below code which will work
on Col A

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
If Target.Count = 1 Then Target = UCase(Target.Text)
End If
Application.EnableEvents = True
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"Doug" wrote:

> I have a column that I want it to always show caps when I type in text. How
> can I set the formatting for this?
>
> Thanks
> --
>

This is one way, using column A as the target column. The code goes into
the Sheet code module. Right click the sheet tab and select view code to
open the code windowl

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Target.Value = UCase(Target.Value)
End If

End Sub



"Doug" <(E-Mail Removed)> wrote in message
news:E16E7FA8-51A8-4CC6-A3B3-(E-Mail Removed)...
>I have a column that I want it to always show caps when I type in text. How
> can I set the formatting for this?
>
> Thanks
> --
>