ambiguous name detected worksheet_change

[mickyflash]

Hi, I understand I cant have two worksheet_changes but I really need both of these codes to work together and I am having trouble merging them into one.

each code runs well independently but I cant get them to work together. Thanks in Advance

Private Sub Worksheet_Change(ByVal Target As Range)
  Const ColumnsToMonitor As String = "C:C"
  Const DateColumn As String = "Z"
  Application.EnableEvents = False
  If Not Intersect(Target, Columns(ColumnsToMonitor)) Is Nothing Then
    Intersect(Target.EntireRow, Columns(DateColumn)).Value = Date
  End If
  Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change_release(ByVal Target As Range)
  Const ColumnsToMonitor As String = "M:M"
  Const DateColumn As String = "FW"
  Application.EnableEvents = False
  If Not Intersect(Target, Columns(ColumnsToMonitor)) Is Nothing Then
    Intersect(Target.EntireRow, Columns(DateColumn)).Value = Date
  End If
  Application.EnableEvents = True
End Sub

 

[yky]

What about this:

Private Sub Worksheet_Change(ByVal Target As Range)
    Const ColumnsToMonitor1 As String = "C:C"
    Const DateColumn1 As String = "Z"
    Application.EnableEvents = False
    If Not Intersect(Target, Columns(ColumnsToMonitor1)) Is Nothing Then
        Intersect(Target.EntireRow, Columns(DateColumn1)).Value = Date
    End If

    Const ColumnsToMonitor2 As String = "M:M"
    Const DateColumn2 As String = "FW"
    If Not Intersect(Target, Columns(ColumnsToMonitor2)) Is Nothing Then
        Intersect(Target.EntireRow, Columns(DateColumn2)).Value = Date
    End If
    Application.EnableEvents = True
End Sub

 

[mickyflash]

Thanks yky that has worked perfectly