condense VBA

I would write like this.

    Dim myArray, x As Long
    myArray = Array("validation", "Cover Sheet", "Management Report", "Management Accounts", _
        "Balance Sheet", "Tax projection - Director 1", "Tax projection - Director 2")
    x = Sheets("input sheet").Range("b47").Value
    If x Like "[12]" Then ReDim Preserve myArray(UBound(myArray) - x)
    Sheets(myArray).Select
    Selection.Activate