Macro using deactivate()

[anicolash]

Hello everyone!

I need help to solve this little problem that I have.

I need a macro that runs when abandoning one sheet. The problem is that this macro refers to shapes or objects that are not on the activate sheet, and an error occured. anyone can help me? Thank You!
I show below code

Private Sub Worksheet_deactivate()

Application.Goto (ActiveWorkbook.Sheets("G.3 damages").Select
If Range("AA48").Value = "eyes" Then
ActiveSheet.Shapes.Range(Array("72 Oval")).Select
Selection.ShapeRange.IncrementLeft -1939.7726771654
Selection.ShapeRange.IncrementTop 38.5227559055
End If

End Sub

Thanks!

[LJMetzger]

Hi anicolash,

If the shapes are on the sheet that you are deactivating, the following may work. It moves the goto to the end of the macro.

Please Login or Register  to view this content.

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

Lewis


(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

[Marc L]

Duplicate thread ! Answered yet in other …

[mikerickson]

One doesn't need to select to manipulate object. This code assumes that the AA48 being tested is on the sheet being deactivated. IF not, qualify that range as well.

Please Login or Register  to view this content.