how to enter apostrophe at beginning and end of cell

Hey everyone,

First time using this forum.

I have an issue I cannot fix unless I manually edit or enter. I am trying to input an apostrophe at the beginning and end of a cell including a sequence of numbers that are separated by commas.

What I want = Before: 4,23,101,102 After: '4,23,101,102'

I have researched this for a while and have not found a viable fix yet.

What I have tried:

Formulas: ="'"&AN17&"'", =CONCATENATE("'",AN18,"'")

Macros:

Sub Apostrophe()
For Each currentcell In Selection
'Prevents inserting apostrophes in blank cells.
If currentcell.Formula <> "" Then
currentcell.Formula = "'" & currentcell.Formula & "'"
End If
Next
End Sub

The problem comes in that when I enter the number sequence manually to the cell, the result in the "formula bar" shows the number sequence minus the commas (ex. 4,23,101,102 in cell = 423101102 in formula bar). This is where the problem persists because every fix I have tried uses the "formula bar" data which does not include the commas.

This is not an issue when I enter these in manually, but if I export a document with these number sequences, then I have to go to each one and add the apostrophe before and after.

Any suggestions?!