condense VBA

You can start with

select case Sheets("input sheet").Range("b47")
  Case 2 
    Sheets(Array("validation", "Cover Sheet", "Management Report", "Management Accounts", _
        "Balance Sheet", "Tax projection - Director 1", "Tax projection - Director 2")). _
        Select
  Case 1 
    Sheets(Array("validation", "Cover Sheet", "Management Report", "Management Accounts", _
        "Balance Sheet", "Tax projection - Director 1")). _
        Select
  Case 0
    Sheets(Array("validation", "Cover Sheet", "Management Report", "Management Accounts", _
        "Balance Sheet")). _
        Select
End select
Selection.Activate