Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Private Sub Worksheet_Change(ByVal Target As Range)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Private Sub Worksheet_Change(ByVal Target As Range)
'//Check for duplicate project names on entry
'//and convert project name to uppercase.
Dim intResponse As Integer
Dim rng1 As Range, rng2 As Range, cell As Range, rng3 As Range, rng4 As Range
On Error GoTo errTrap
Application.EnableEvents = False
If Not Intersect(Target, Columns(1)) Is Nothing Then
''''''more code'''''''
End sub