pues agrega un procedimiento para saber si el archivo existe y si es así que se produzca el renombrado en caso contrario que omita el procedimiento. 

me parece que una forma relativamente fácil es hacer algo así:

Private Function Valida() As Boolean
On Error GoTo fallo
x = GetAttr("c:\a.txt")
Valida = True
Exit Function

fallo:
Valida = False
Exit Function
End Function

Private Sub opci_Click()
'Si está seleccionado el Option1 se ejecuta la siguiente condición
If Option19.Value = True Then
  if valida then
   Name "c:\a.txt" As "c:\archivo.txt"
   MsgBox "Fuente por defecto", vbInformation + vbOKOnly
Else: Option19.Value = False
   MsgBox "Fuente cambiada", vbInformation + vbOKOnly
end if 
End If

Perdón por el doble post, gracias por la ayuda