Color a shape a different color if macro is run after a timestamp and list time run

[mrpaw]

Hi All,

I'm looking for a method that will 1) visually show, by changing the shape's color, whether a macro called from a button has run and 2) post what time the macro was run. Is this even possible?

 

[Yongle]

Perhaps this will help

Private Sub CommandButton1_Click()

[COLOR=#ff0000]button macro code goes here[/COLOR]

[COLOR=#000080][I]'change shape colour[/I][/COLOR]
   ActiveSheet.Shapes("Rectangle 1").Fill.ForeColor.RGB = RGB(255, 0, 0)

[I][COLOR=#000080]'place timestamp inside shape[/COLOR][/I]
  ActiveSheet.Shapes("Rectangle 1").TextFrame.Characters.Text = "Last Run " & Date & " " & Time

[COLOR=#000080][I]'place timestamp into cells[/I][/COLOR]
  Range("A1") = Now
  Range("A2") = Date
  Range("A3") = Time
End Sub

Try recording a macro and changing the shape's colour
Look at the recorded code to get RGB values