Dim rg As Range
Dim c As Range
Set rg = [A1:A5] 'range containing your values
For Each c In rg
c = "'" & Left(c, 1) & "/" & Right(c, 1) 'for 2 digits numbers
' or
' c = "'" & Left(c, Len(c) - 1) & "/" & Right(c, 1) ' for x digits numbers
Next c