Maybe:

'if two directors are to receive a personal tax projection
If Sheets("input sheet").Range("b47") = 2 Then
    Sheets(Array("validation", "Cover Sheet", "Management Report", "Management Accounts", _
    "Balance Sheet", "Tax projection - Director 1", "Tax projection - Director 2")).Select
'if one director is to receive a personal tax projection
ElseIf Sheets("input sheet").Range("b47") = 1 Then
    Sheets(Array("validation", "Cover Sheet", "Management Report", "Management Accounts", _
    "Balance Sheet", "Tax projection - Director 1")).Select
ElseIf Sheets("input sheet").Range("b47") = 0 Then
    Sheets(Array("validation", "Cover Sheet", "Management Report", "Management Accounts", _
    "Balance Sheet")).Select
End If
Selection.Activate      ' ??? redundant ???

Regards, TMS