Error highlighted no lines of code to be corrected just the error code

Question

When I run the macro I get this error:
"The attempted operation failed.  An object could not be found."
The error highlighted no lines of code to be corrected just the error code.
Dim OLapp As New Outlook.Application
Dim OLns As Outlook.NameSpace
Dim Inbox As Outlook.MAPIFolder
Dim Bills As Outlook.MAPIFolder
Set OLns = OLapp.GetNamespace("MAPI")
Set PersonalFolder = OLns.GetDefaultFolder(olPublicFoldersAllPublicFolders)
Set Inbox = OLns.GetDefaultFolder(olFolderInbox)
Set BillsFolder = PersonalFolder.Folders("Bills")
If Inbox.Items.Count = 0 Then Exit Sub
For iLoop = Inbox.Items.Count To 1 Step -1
Set obj = Inbox.Items(iLoop)
If obj.SenderEmailAddress = "[email protected]" Then obj.Move BillsFolder
Set obj = Nothing
Next iLoop
Set BillsFolder = Nothing
Set PersonalFolder = Nothing
Set Inbox = Nothing
Set OLns = Nothing

Answer 1

Are you sure a folder named Bills exists in the PF store?
Dmitry Streblechenko (MVP)
http://www.dimastr.com/redemption
Redemption - what the Outlook
Object Model should have been
Version 5.5 is now available!