Sub RemoveApostrophe()
	Dim CurrentCell As Range
	For Each CurrentCell In Selection
		If CurrentCell.HasFormula = False Then
			CurrentCell.Formula = CurrentCell.Value
		End If
	Next
End Sub