Un error 13 en Excel

Hola tengo esta macro en la celda F12 que es la que contiene el nombre cuando no hay concepto me merca un error 13 en lo que necesito es que me mande un mensaje en la pantalla Falta Descripción de Nombre y que me deje corregir este error.

Dim Ruta As String, Nuevonombre As String
Nuevonombre = Ruta & Range("F12") & Range("W4") & ".pdf"
Worksheets("Factura").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Nuevonombre, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True