Changed sheet1 to activesheet as I don't know the name of your sheet :)
Sub RemoveApostrophes()
With ActiveSheet.UsedRange
.Value = .Value
End With
End Sub
Changed sheet1 to activesheet as I don't know the name of your sheet :)
Sub RemoveApostrophes()
With ActiveSheet.UsedRange
.Value = .Value
End With
End Sub