Добрый вечер, как сделать так, чтобы работали эти два макроса в одной книге, т.к. если я изменяю имя одного из них то он не работает, с одинаковым именем не работают оба, помогите пожалуйста  
 
Private Sub Worksheet_Change(ByVal Target As Range)  
On Error Resume Next  
If Target.Address = [c6].Address Then
Application.EnableEvents = False  
hhh  
End If  
Application.EnableEvents = True  
End Sub  
Sub hhh()  
Dim a&, b&  
a = [Таблица3].Cells(1, 1).Row
b = [Таблица3].Rows.Count
Rows(a & ":" & [c6].Value + a).EntireRow.Hidden = False
If [a16] = b Then Exit Sub
Rows(a + [c6].Value & ":" & a + b - 1).EntireRow.Hidden = True
End Sub  
 
Private Sub Worksheet_Change(ByVal Target As Range)  
If Target.Address = "$C$3" Then [c4:c5].ClearContents
End Sub