Formato de numero texto en celdas de forma predeterminada al abrir un excel en concreto

Tengo una macro que gran parte me la contestaron por aquí,

Tengo un excel en el que meto un valor numérico busca en las hojas de ese excel y si coincide el valor de la celda me genera un nuevo excel con esa hoja.

  ==========================================================================

Private Sub Worksheet_Change(ByVal Target As Range)
'x Elsamatilde

Dim miArray() As String
Dim nombre As String

'controla si se ingresó un valor en C5
If Target.Address(False, False) <> "C5" Then Exit Sub

'se arma una lista de hojas encontradas en col bz 'ajustar
i = 1
For Each sh In Sheets
'no se incluye la hoja activa
If sh.Name <> "Hoja1" Then
If sh.[F371] = Target.Value Then
Range("BZ" & i) = sh.Name
i = i + 1
End If
End If
Next sh
'defino la cantidad de hojas que alimentarán la matriz
y = i - 2 'se resta 2 porque la matriz empieza en 0
ReDim miArray(y)
For i = 0 To y
miArray(i) = Range("BZ" & i + 1)
Next i
'se arma nuevo libro solo con hojas elegidas
ActiveWorkbook.Sheets(miArray()).Copy
'controla posible error en el guardado
On Error Resume Next
'se crea un libro con las hojas copiadas y lo llamé RESUMEN.... Ajustar
Set wb = ActiveWorkbook
With wb
.SaveAs ThisWorkbook.Path & "\" & "serie " & Range("C5") & " .CSV", FileFormat:=xlCSV, Local:=True
.Close False

===================================================================================

El problema que tengo es que hay datos en esas hojas que tienen formato 02-04 entonces al tener formato de numero general me los coge como fecha y al generar el nuevo excel ya me lo entiende como 02-abril.

Necesitaría poder abrir ese excel con todas las celdas en formato numero "@" texto, y que el nuevo excel que me genere que tenga también todas las celdas en formato texto.

Muchísimas gracias!

Saludos

Luis Borja