All Capitals

[lostinformulas]

is there a VB code that will change the case to all Capitals regardless of what is typed in worksheet!!!!

[Michael M]

Hi
Try using the UPPER function.

=UPPER(A1) will convert what is in A1 to Upper case

HTH
Michael M

"lostinformulas" wrote:

>
> is there a VB code that will change the case to all Capitals regardless
> of what is typed in worksheet!!!!
>
>
> --
> lostinformulas
> ------------------------------------------------------------------------
> lostinformulas's Profile: http://www.excelforum.com/member.php...o&userid=35229
> View this thread: http://www.excelforum.com/showthread...hreadid=551668
>
>

[Bearacade]

This is from the Microsoft board.

Becareful you don't have too big of a range.. your workbook will be busy for a long time ...

Sub Uppercase()

For Each x In Range("A1:A5")
x.Value = UCase(x.Value)
Next

End Sub

[lostinformulas]

Thanks,,

=Upper didn't work due to other condition in the cell


Bearacada,

Sub Uppercase()

worked perfect is there away for it to run automatically.

[Gord Dibben]

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

As written, operates on Columns A:H as you enter text in a cell.

Change the 8 to whatever you wish.

This is event code and must go into the sheet module.

Right-click on the sheet tab and "View Code". Copy and paste the above into
that module.


Gord Dibben MS Excel MVP

On Tue, 13 Jun 2006 18:04:41 -0500, lostinformulas
<[email protected]> wrote:

>
>Thanks,,
>
>=Upper didn't work due to other condition in the cell
>
>
>Bearacada,
>
>Sub Uppercase()
>
>worked perfect is there away for it to run automatically.

[lostinformulas]

Gord Dibben

Thank You for the code it worked great!

[Gord Dibben]

Thanks for the feedback.

Happy to assist.


Gord

On Wed, 14 Jun 2006 10:14:13 -0500, lostinformulas
<[email protected]> wrote:

>
>Gord Dibben
>
>Thank You for the code it worked great!

Gord Dibben MS Excel MVP