Issue with Macro (Error Msg Run time Error -2147024809)

[Prinz Jaymes]

Hi
Having issues with VBA code.
I was initially helped with this project here on Chandoo. Initially, clicking on ovals allowed changes, but now when I completely try to reopen file and shutting down Excel, my code shows faulty messages.
It looks like this:

With ActiveSheet
objname = .Shapes(Application.Caller).Name
shpnum = Val(Replace(objname, "Oval ", ""))

If objname <> prevname Then
.Shapes(prevname).Fill.BackColor.RGB = DEFAULTCOLOR (main error) .Shapes(prevname).Fill.ForeColor.RGB = DEFAULTCOLOR
.Shapes(objname).Fill.BackColor.RGB = CLICKEDCOLOR
.Shapes(objname).Fill.ForeColor.RGB = CLICKEDCOLOR

Not sure what to do.

 

[Deepak]

Hi,

Where is Oval 86 as same is not found in both attachments.

 

[Prinz Jaymes]

Hi Deepak
Still don t see how that affects the macro.
I need help modifying it.

 

[Deepak]

Hi Deepak
Still don t see how that affects the macro.
I need help modifying it.

Hi,
This is what you want to fill

.Shapes(prevname).Fill.BackColor.RGB = DEFAULTCOLOR

where prevname is Shape (Oval 86).

So if will not exist then how could you paint it.

 

[Prinz Jaymes]

Deepak
You are my hero.
A cup of coffee and all i needed was to notice i had mistakenly deleted my default value , the oval 86.
I just replaced with a current one.

Thank you