Run-time error 1004 Application=defined or object-defined error

I apologize for not getting back to this quickly, but I have been busy coding. Keebellah, although your recommended solution did not resolve my problem, it did help point me in the right direction. I found changing the colors to vbRed or vbGreen did not resolve my problems and the green was to light to read in my spreadsheet, so I went to RGB color sets instead, which allowed me to select the color of Green that was more easily readable. That also did not resolve my problem, and as usual when changing code in one area, sometimes it introduces problems with code in other areas. So I had to rewrite several areas in my code that used these color codes. One again, that alone did not resolve my problem, but in the process I began to realize what was happening. The problem occurred more frequently when I closed my workbook and then reopened it. Double clicks on selected cells with Red or Green would cause the Run-time error 1004. This would also occur more infrequently when double clicking on targets in other worksheets.

What I did not explain earlier, if you look at my original code, is that in columns P and Q, I would store values 1 or 2 depending on the colors. The value one would represent the color change to green, while the value 2 would represent the color Red. Why did I do this? Well, initially it was so that if I exported the worksheet, I would have those values in my export, and then if I chose to import them back into my workbook, I could reference those two columns and run code to return the targeted values back to their original colors prior to the export.

After making the changes to the RGB color sets, then I sought to resolve the Run-time error 1004. I then created the following code to Reset the Font colors:

Please Login or Register  to view this content.

I then implemented this code to run in primarily two areas, one anytime there was a switch to another worksheet with color codes, this code would run when the sheet was activated to reset those colors and it would resolve the occasional Run-time error 1004 that I would sometimes get when switching between sheets. Still the problem occurred when I would close and reopen my workbook and then try to double click on a target to change colors. The solution here was to enter code into the Workbook_Activate routine, to identify when certain ledgers were selected and run the ResetFonts routine once the worksheets was selected, thus resolving the primary issue that would give me the Run-time error 1004.

So my problem is resolved, one that I spent many hours on both trying to initially find a solution, and then more hours creating and editing my solution above into my code.