Excel VisualBasic Script

Sub SelectEntireSheet()
    Cells.Select
End Sub