macro to change colour of Autoshape in Another Sheet

[Q-D]

Appologies for my ignorance but I am too new to Macros to figure this out myself. I have a speadsheet with sevral tabs on which each there is a tick box to mark as comple. Once pressed this links to a true false box which activates the macro to change the colour of an aurtoshape on the menu

What I have so far is :

Private Sub Worksheet_Deactivate()
Application.ScreenUpdating = False
If Range("N110") = "True" Then
Sheets("Menu").Select
ActiveSheet.Shapes("Text Box 53").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 57
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid

ElseIf Range("N110") = "False" Then
Sheets("Menu").Select
ActiveSheet.Shapes("Text Box 53").Select
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(128, 0, 0)
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid

End If
End Sub


This "Works" however I dont want to have to visit the menu tab I want something like:

Sheets("Menu").Shapes("Text Box 53").ShapeRange.Fill.ForeColor.SchemeColor = 57

Which would just change the colour without visitng/selecting the Sheet and Shape but I am unsure how to make this happen. Any help would be much appreciated.

Thanks

 

[Q-D]

Still havent figured this one out if anyone has any suggestions?

Thanks