If you’re using Project 2010 or Project 2013, use the following subroutine to display the formula in a custom field: ‘ © Ismet Kocaman ‘ Sub Show_Formula() If Application.CustomFieldGetFormula(ActiveCell.FieldID) <> “” Then MsgBox Title:=”Field: ” & ActiveCell.FieldName, Prompt:= _ Application.CustomFieldGetFormula(ActiveCell.FieldID) Else MsgBox Title:=”Field: ” & ActiveCell.FieldName, Prompt:= _ “No Formula” End If End Sub To…