Cacher is the code snippet organizer for pro developers

Sub preventscientific()

Dim Cell As Range
Dim textid As Variant
Dim newid As String
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'written by Angelina Teneva, September 2016
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

For Each Cell In ActiveSheet.Range("B2:B" & ActiveSheet.UsedRange.Rows.Count).SpecialCells(xlCellTypeVisible)

textid = Cell.Value
newid = "'" & textid
Cell.Value = newid

Next Cell

End Sub