Sütundaki sayıların başına tek tırnak eklemek

[posserver]

Merhaba,
Excelde A sütunundaki sayıların başına tek tırnak ( ' ) eklemek istiyorum.
Bununla ilgili bi makro varmıdır?
örneğin:

'1234
'1000 gibi.

 

[janveljan]

Merhaba,
İşlemi yapmak istediğiniz bölgeyi seçip makroyu çalıştırın

Sub tırnak()
For Each hcr In Selection
If IsNumeric(hcr.Value) Then hcr.Value = "'" & hcr.Value
Next
End Sub