How to make 2 macros work

Below I have pasted the 2 macros that i am trying to use. When I added the second macro which is the same as the first one but it is for a different cell erros pop up when i try changing the cell for the second macro. How do i correct this so that the second macro works?
I am sure it is in the beginning of the notation for the second macro.




Private Sub worksheet_change(ByVal target As Range)
If Not Intersect(target, Range("D55")) Is Nothing Then
Rows("56:65").EntireRow.Hidden = False
Select Case target
Case 0
Rows("56:65").EntireRow.Hidden = True
Case 1
Rows("58:65").EntireRow.Hidden = True
Case 2
Rows("60:65").EntireRow.Hidden = True
Case 3
Rows("62:65").EntireRow.Hidden = True
Case 4
Rows("64:65").EntireRow.Hidden = True
Case 5
Rows("56:65").EntireRow.Hidden = False
End Select
End If
End Sub

Private Sub worksheet_change(ByVal target As Range)
If Not Intersect(target, Range("H78")) Is Nothing Then
Rows("80:112").EntireRow.Hidden = False
Select Case target
Case 0
Rows("80:112").EntireRow.Hidden = True
Case 1
Rows("91:112").EntireRow.Hidden = True
Case 2
Rows("103:112").EntireRow.Hidden = True
Case 3
Rows("80:112").EntireRow.Hidden = False
End Select
End If
End Sub

I guess:

Please Login or Register  to view this content.

Regards, TMS

If you are satisfied with the solution(s) provided, please mark your thread as Solved.


New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

Or you can use this way:

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save


You may also want to consider thanking those people who helped you by clicking on the little star at the bottom left of their reply to your question.