Anteponer un apostrofe

Estimado, necesito anteponer un apostrofe (') en las columnas A B y C del siguiente código que tu me creaste por favor.

Adjunto pantallazo ejemplo:

https://dl.dropbox.com/u/31683777/Apostrofe.PNG

Este es el Código del macro:

Sub creaplanilla_MI()
'copia datos a otra hoja
'Por Dam
Set hactual = Sheets("Hoja1")
Set hdest = Sheets("Hoja2")

hactual.Select
ufila = Range("A" & Rows.Count).End(xlUp).Row
ucol = ActiveCell.SpecialCells(xlLastCell).Column
hdest.Columns("C").NumberFormat = "mm/yyyy"

j = 1

For k = 34 To ucol

If IsNumeric(hactual.Cells(1, k)) And hactual.Cells(1, k) <> "" Then

For i = 7 To ufila
If Cells(i, 1) <> "" Then
hdest.Cells(j, 1) = hactual.Cells(1, k)
hdest.Cells(j, 2) = hactual.Cells(i, 1)
hdest.Cells(j, 3) = Format("11/2012", "mm/yyyy") 'fecha"
If hactual.Cells(i, k) = "" _
Or Not IsNumeric(hactual.Cells(i, k)) Then
hdest.Cells(j, 4) = 0
Else
hdest.Cells(j, 4) = hactual.Cells(i, k) * 1000
End If
j = j + 1
End If
Next
End If
Next
MsgBox ("**Se ha creado la HOJA2**")
End Sub