To simplify presentation of stock locations in a multi-user shared
spreadsheet I wish force all users to always show "GA05" or "AD03" style
rather than "ga05" or "Ad03" which will occur if not preset.

Hi,

Right click your sheet tab, view code and paste this in. Change the range to
suit

Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_RANGE As String = "A1:A100" '<== change to suit
On Error GoTo ws_exit
Application.EnableEvents = False
If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
Target.Formula = UCase(Target.Formula)
End If
ws_exit:
Application.EnableEvents = True
End Sub

Mike

"DuncanM9" wrote:

> To simplify presentation of stock locations in a multi-user shared
> spreadsheet I wish force all users to always show "GA05" or "AD03" style
> rather than "ga05" or "Ad03" which will occur if not preset.