Good day to all in first place

I am new to VBA and need some help to edit a working macro so it can check a value in a cell, I do this process ever month for 500 sheets (same sheet just changes month and employer name)

Example of what is working at the moment:

Sub Imprimir()
With Worksheets("Francisco")
With .Range("L4")
If IsNumeric(.Value) Then
.Value = .Value + 1
.Parent.PrintOut preview:=False
Else
MsgBox "Cell isn't numeric!"
End If
End With
End With
End Sub

Now what I need is to check if cell (D4) has text(employer name) or ( 0 ) 0=employer no longer works with us there for don't need to print

Hope the information is enough
Thanks a lot!!!!