Why am I getting a run time error on the first sub?

Sub Test1()
    Dim objWbk As Excel.Workbook
    Set objWbk = New Workbook
End Sub

Sub Test2()
    Dim objWbk As Excel.Workbook
    Set objWbk = Application.Workbooks.Add
End Sub