Hi, the code below refers to sheet "quote", however I need it to reference the active sheet name because I sometimes change the name to something other than quote. Or it can reference the sheet name in cell C1. This cell has the following formula (=MID(CELL("filename",C1),FIND("]",CELL("filename",C1))+1,255) if it will have any bearing on this option. Thanks for the help.
VBA Code:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If IsEmpty(Sheets("QUOTE").Range("L9").Value) = False Then
On Error Resume Next
If Sh.Name = "TABLE PROD" Then
MsgBox "NOTES: " & Worksheets("quote").Range("L9")
End If
End If
End Sub