Problema de Macro con Hipervínculo

Hola, tengo el siguiente script para realizar hipervínculos automáticos en excel:

Sub Macro2()
Range("a1").Select
Do While ActiveCell.Offset(0, 2).Value = "" And ActiveCell.Offset(0, 1).Value <> "" Or ActiveCell.Offset(0, 2).Value = "MORGAN" Or ActiveCell.Offset(0, 2).Value = "ACINDAR"
If ActiveCell.Offset(0, 2).Value = "" Then
ActiveCell.Offset(1, 0).Select
End If
If ActiveCell.Offset(0, 2).Value = "MORGAN" Then
ActiveCell.Offset(0, 3).Hyperlinks.Add anchor:=ActiveCell.Offset(0, 3), Address:="\\ACI\Planos\TREN-2\MORGAN\" & ActiveCell.Offset(0, 3).Value & ".tif", TextToDisplay:=ActiveCell.Offset(0, 3).Value
ActiveCell.Offset(1, 0).Select
End If
If ActiveCell.Offset(0, 2).Value = "ACINDAR" Then
ActiveCell.Offset(0, 3).Hyperlinks.Add anchor:=ActiveCell.Offset(0, 3), Address:="\\ACI\Planos\TREN-2\" & ActiveCell.Offset(0, 3).Value & ".tif", TextToDisplay:=ActiveCell.Offset(0, 3).Value
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub

El tema es en la parte del If ActiveCell.Offset(0, 2).Value = "MORGAN" . Yo le tengo que hacer hipervínculo a unos códigos, que son planos los cuales están dispuestos en filas. El tema es que me crea perfecto el hipervínculo cuando el código es por ejemplo C-11111, en cambio cuando es directamente un numero, como por ej 11111, me salta error 5.

Espero su respuesta, saludos!