2 Worksheet "Change" Proceedure on one sheet?

[realniceguy5000]

How can I have 2 worksheet proccedures on the same sheet?

Is it possible? How to make it happen?

Thanks so much!!! Mike

Here is my codes:
#1

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Cells.Count > 1 Then
        Exit Sub
    End If
    On Error GoTo ErrHandler:
    If Not Application.Intersect(Me.Range("A5:B1200"), Target) Is Nothing Then
        If IsNumeric(Target.Value) = False Then
            Application.EnableEvents = False
                        Target.Value = StrConv(Target.Text, vbProperCase)
            Application.EnableEvents = True
        End If
    End If
ErrHandler:
    Application.EnableEvents = True
End Sub

#2

Private Sub Worksheet_Change(ByVal Target As Range)
    
                Set MyPlage = Range("M5:M1200")
    For Each Cell In MyPlage
    
        If Cell.Value = "Monday" Then
            Cell.Interior.ColorIndex = 45
        End If
        If Cell.Value = "Tuesday" Then
            Cell.Interior.ColorIndex = 4
        End If
        If Cell.Value = "Wednesday" Then
            Cell.Interior.ColorIndex = 18
        End If
        If Cell.Value = "Thursday" Then
            Cell.Interior.ColorIndex = 6
                      
        End If
        If Cell.Value = "Friday" Then
            Cell.Interior.ColorIndex = 12
        End If
        
        If Cell.Value = "Saturday" Then
            Cell.Interior.ColorIndex = 18
        End If
        
        If Cell.Value = "Sunday" Then
            Cell.Interior.ColorIndex = 22
        End If
                 
    Next
       
    End Sub

[GuruWannaB]

Pick an order...have be a subroutine that is called by the other.

[VBA Noob]

Maybe

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cl As Range
Dim i As Long
Application.EnableEvents = False
Select Case Target.Address(0, 0)
    Case "M5:M1200": GoTo Rng1
    Case "A5:B1200": GoTo Rng2
    '
    End Select
    
Rng1:
    For Each Cl In Range("M5:M1200")
        If Not IsEmpty(Cl) Then
             Select Case LCase(Cl)
                 Case "monday": i = 45
                 Case "tuesday": i = 4
                 Case "wednesday": i = 18
                 Case "thursday": i = 6
                 Case "friday": i = 12
                 Case "saturday": i = 18
                 Case "sunday": i = 22
                 Case Else: i = 0
            End Select
        End If
         Cl.Interior.ColorIndex = i
         i = 0
    Next Cl
Rng2:
If Target.Cells.Count > 1 Then
        Exit Sub
    End If
    On Error GoTo ErrHandler:
    If Not Application.Intersect(Me.Range("A5:B1200"), Target) Is Nothing Then
        If IsNumeric(Target.Value) = False Then
            Application.EnableEvents = False
                        Target.Value = StrConv(Target.Text, vbProperCase)
            Application.EnableEvents = True
        End If
    End If
    
ErrHandler:
    Application.EnableEvents = True
End Sub

VBA Noob

[realniceguy5000]

Maybe

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cl As Range
Dim i As Long
Application.EnableEvents = False
Select Case Target.Address(0, 0)
    Case "M5:M1200": GoTo Rng1
    Case "A5:B1200": GoTo Rng2
    '
    End Select
    
Rng1:
    For Each Cl In Range("M5:M1200")
        If Not IsEmpty(Cl) Then
             Select Case LCase(Cl)
                 Case "monday": i = 45
                 Case "tuesday": i = 4
                 Case "wednesday": i = 18
                 Case "thursday": i = 6
                 Case "friday": i = 12
                 Case "saturday": i = 18
                 Case "sunday": i = 22
                 Case Else: i = 0
            End Select
        End If
         Cl.Interior.ColorIndex = i
         i = 0
    Next Cl
Rng2:
If Target.Cells.Count > 1 Then
        Exit Sub
    End If
    On Error GoTo ErrHandler:
    If Not Application.Intersect(Me.Range("A5:B1200"), Target) Is Nothing Then
        If IsNumeric(Target.Value) = False Then
            Application.EnableEvents = False
                        Target.Value = StrConv(Target.Text, vbProperCase)
            Application.EnableEvents = True
        End If
    End If
    
ErrHandler:
    Application.EnableEvents = True
End Sub

VBA Noob

That is fantastic work... I never would have come up with this... Thank You for your guidance.... Mike

[realniceguy5000]

Pick an order...have be a subroutine that is called by the other.

Hmmmm, Seems simple now. It appears to be working correctly.

Thanks for your help...

Mike