Run Time Error 91 - Can't find the source of it

[Megaliz]

The below macro is updating fuel prices for a given month which can be in the current year, the last or the next one.

The user gets one form to select the month of the update, then another form to select Current Year / Last Year / Next Year.

Current Year and Last Year macros are working fine.

The purpose of the Next Year macro is to check on the Fuel Price list if the year already exists - If Not, add a new cell with "2015"
If the year is already entered, the macro will then check if the month selected on the first form already exists - If Not add a new cell with the month selected.

Here is the macro :

Please Login or Register  to view this content.

On the line : Set YearFound = .Find(what:=Year(Date) + 1, after:=Range("A1"), LookIn:=xlValues, lookat:=xlWhole, _
searchorder:=xlByColumns, searchdirection:=xlNext, MatchCase:=False, matchbyte:=False, searchformat:=False).Activate
I am getting a Run Time Error 91, and I cannot find why.

Thanks !

[Tinbendr]

Remove the .Activate from the end.

[TMS]

You can't use Set and Activate. Lose the .Activate


Regards, TMS

[Norie]

A most common reason for errors with Find is that what you are looking for isn't being found.

You actually seem to be set up to handle that with the following If statement, but you need to lose .Activate.

Please Login or Register  to view this content.

[AB33]

Please Login or Register  to view this content.

[Megaliz]

Thank you all. It did the trick !

[TMS]

You're welcome




If you are satisfied with the solution(s) provided, please mark your thread as Solved.


New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

Or you can use this way:

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save


You may also want to consider thanking those people who helped you by clicking on the little star at the bottom left of their reply to your question.