Apoyo julio

Julio te agradezco infinitamente el apoyo que me brindaste recientemente con una macro para convertir numero a texto 5.0 CINCO PUNTO CERO, 8.1 OCHO PUNTO UNO, el problema que tengo es que quiero que se active en una hoja específica, por ejem. En la Hoja 3. El código que me enviaste fue el siguiente.
Sub NumALetra()
Dim valor As String
Dim INI As Integer
Dim letra As String
Dim letra1 As String
Range("F1").Select
Do While ActiveCell.Offset(0, -1).Value <> ""
valor = ActiveCell.Offset(0, -1).Text
FIN = Right(valor, 1)
INI = Left(valor, 2)
If INI = 1 Then
letra = "UNO"
End If
If INI = 2 Then
letra = "DOS"
End If
If INI = 3 Then
letra = "TRES"
End If
If INI = 4 Then
letra = "CUATRO"
End If
If INI = 5 Then
letra = "CINCO"
End If
If INI = 6 Then
letra = "SEIS"
End If
If INI = 7 Then
letra = "SIETE"
End If
If INI = 8 Then
letra = "OCHO"
End If
If INI = 9 Then
letra = "NUEVE"
End If
If INI = 0 Then
letra = "CERO"
End If
If INI = 10 Then
letra = "DIEZ"
End If
If FIN = 1 Then
letra1 = "UNO"
End If
If FIN = 2 Then
letra1 = "DOS"
End If
If FIN = 3 Then
letra1 = "TRES"
End If
If FIN = 4 Then
letra1 = "CUATRO"
End If
If FIN = 5 Then
letra1 = "CINCO"
End If
If FIN = 6 Then
letra1 = "SEIS"
End If
If FIN = 7 Then
letra1 = "SIETE"
End If
If FIN = 8 Then
letra1 = "OCHO"
End If
If FIN = 9 Then
letra1 = "NUEVE"
End If
If FIN = 0 Then
letra1 = "CERO"
End If
ActiveCell.Value = letra & " PUNTO " & letra1
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Julio te reitero mi agradecimiento
Atentamente
profr. Marcos calleja guerrero