Cacher is the code snippet organizer for pro developers

Sub EncloseinQuotes()

Dim Cell As Range
Dim IP As String
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'written by Angelina Teneva, March 2017
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

With ActiveSheet
For Each Cell In Range("A2:A" & ActiveSheet.UsedRange.Rows.Count)
    IP = Cell.Value
    Cell.Value = "''" & IP & "',"
Next Cell

End With
End Sub