G'day

Wondering if anyone can help, I've currently got this code working:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
ActiveSheet.PageSetup.RightHeader = "Incident Name: " & Worksheets("Main Page").Range("E7").Text
End Sub

and I want to add this into the header below the above code:

"Incident Number: " & Worksheets("Main Page").Range("E8").Text

So effectively the right header will read:
Incident Name: *Main Page E7*
Incident Number: *Main Page E8*