Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
Sub remove_Apostrophe()
'Updateby20150521
Dim rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "Hoc Excel Online"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeConstants, xlNumbers)
For Each rng In WorkRng
If Not rng.HasFormula Then
rng.Formula = rng.Value
End If
Next
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment