Customizing the icon for your open application located Windows toolbar?

Originally Posted by snb

Sub snb()
  With CommandBars(1).Controls.Add
    .FaceId = 1244
  End With
End Sub

Would this go into its own simple module? In the Openworkbook script of "ThisWorkbook"? No luck so far with it.