Function LireF(target, Optional info As Integer)
Select Case info
Case 1
LireF = "'" & target.Formula
Case 2
LireF = "'" & target.FormulaR1C1
Case 3
LireF = "'" & target.FormulaR1C1Local
Case Else
LireF = "'" & target.FormulaLocal
End Select
End Function