I have been trying to get this to work in cell "Q4" all morning.
I have put it every where in thisworkbook, Legend, and in a new module.
Cant get it to work in cell "Q4" of the Legend.
This is the formula I am useing.
Private Sub Workbook_Open()
Sheets("Sheet1").Range("Q4").Value =...