VBA Insert ' in front of all cells which are selected

[jakobt]

Is it possible to write some VBA code for:

Insert an aphostrophe' in front of all cells which are selected.

 

[offthelip]

here you are:

Sub apost()
For Each cell In Selection
 cell.Value = "'" & cell.Value
Next cell


End Sub