This is a continuation from thread: http://www.excelforum.com/excel-gene...-the-date.html

I need to apply this same idea to multiple cells. For example, in addition to the solution code in the above thread, when someone types in cell G47, D47 autofills todays date in the same manner as I6 in the code. This will be done for 5 additional cell pairs. I cannot make another Change function, and when I add in this code:

Sub Worksheet_Change(ByVal Target As Range)

If Target.Address <> "$C$4" Then Exit Sub

Application.EnableEvents = False
If Sheets("SUMMARY").Range("C4") <> "" Then
Sheets("SUMMARY").Range("I6").Value = Format(Now, "mm/dd/yy")
Else
Sheets("SUMMARY").Range("I6").Value = ""
End If

Application.EnableEvents = True

If Target.Address <> "$G$47" Then Exit Sub

Application.EnableEvents = False
If Sheets("SUMMARY").Range("G47") <> "" Then
Sheets("SUMMARY").Range("D47").Value = Format(Now, "mm/dd/yy")
Else
Sheets("SUMMARY").Range("D47").Value = ""
End If

Application.EnableEvents = True

End Sub
Nothing happens when I type in cell G47. I know it's because it sees that I'm not typing in cell C4 as in the first if statement and is exiting the function, so the G47 if statement is never reached. What is the best way to approach this? A Select:Case statement or multiple If/Else statements? What would the syntax look like?