Run-time Error '9': Subscript out of range

This error keeps appearing when I try to set up the print function command
button. I have used the same exact code on other worksheets in the same
workbook (I just changed the worksheet name) and have not had any problems.
The first line of the code is highlighted when I debug.

Private Sub CommandButton1_Click()
Sheets("Application").PageSetup.PrintArea =
Sheets("Application").Range("$a$1:$j$39").Address
Sheets("Application").PrintOut Copies:=1
End Sub