Format mitkopieren

ich kopiere einen zellbereich von Tabellenblatt1 nach Tabellenblatt2 mit

Private Sub Worksheet_Activate()

Dim m As Integer

For m = 1 To 60

If Cells(13, m) <> "" Then
Cells(12, m - 1) = Worksheets("Tabellenblatt2").Cells(34, m)


End If
Next
End Sub

Wie kann ich das Format aus den zellen des Tabellenblatt2 mitkopieren?? So kriege ich nur die Werte, ich hätte aber auch gerne die formate....