Hi Brandtboo0

I have cooked this in Excel 2000:

Public Sub ToggleFunction()
If Not IsEmpty(ActiveCell) Then
If ActiveCell.HasFormula Then
ActiveCell.Value = "'" & ActiveCell.Formula
Else
If Not IsNumeric(ActiveCell) Then
ActiveCell.Formula = ActiveCell.Text
End If
End If
End If
End Sub


HTH,

Executor