Error On Save

[RandyD123]

I keep getting an error message when I try to save this sheet. The thing is that I don't use the macro on the sheet that I am getting the error message on. I use it on the LNC tab and it works fine. I can even save if I'm on the LNC tab with no errors?? Can anyone possible help? Thank you.

 

[Joe4]

It may mean it cannot find what you are look for.

Try replacing that line in yellow with this code block:

If b is Nothing Then
    MsgBox "Cannot find " & fndDate & " in your range"
Else
    b.Select
End If

 

[Peter_SSs]

When posting vba code in the forum, please post the actual code, not a picture of it, so we can copy to test. Use the available code tags as it makes your code much easier to read/debug & copy. My signature block below has more details. I have added the tags for you this time.

Immediately above that yellow highlighted line of code insert this code and see what it shows. Is it what you were expecting?

If b Is Nothing Then
  MsgBox "B is nothing"
Else
  MsgBox b.Value
End If

 

[RandyD123]

Thank you all for helping. I normally would have posted VBA code but I had a lot of code that I didn't think would be relevant. Anyway, I fixed by not allowing my "save code" to call on "Nearest_Date" code. The weird thing is that, that code should have only run on the LNC tab and not the Data tab. Any way thanks again for all the help.

 

[Peter_SSs]

that code should have only run on the LNC tab and not the Data tab.

.. so why do you have the code in the Data sheet's code module? Could be your problem.