Excel VisualBasic Script

Sub Diagonal()
  Range("A10", "D1").Select
End Sub