colums in uppercase only
I am trying to create a spreadsheet where all text entered in columns A,C,
and H from row 5 to row 50 shows in uppercase |
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ws_exit: Application.EnableEvents = False With Target If .Column = 1 Or .Column = 3 Or .Column = 8 Then If .Row = 5 And .Row <= 50 Then .Value = UCase(.Value) End If End If End With ws_exit: Application.EnableEvents = True End Sub 'This is worksheet event code, which means that it needs to be 'placed in the appropriate worksheet code module, not a standard 'code module. To do this, right-click on the sheet tab, select 'the View Code option from the menu, and paste the code in. -- HTH Bob Phillips "Dino Thomas" wrote in message ... I am trying to create a spreadsheet where all text entered in columns A,C, and H from row 5 to row 50 shows in uppercase |
All times are GMT +1. The time now is 03:26 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com