One way:

Public Sub MyEvaluate()
If IsEmpty(Range("D3").Value) Then
Range("G1").Value = (Month(Date) / 12 * Range("G4").Value)
End If
End Sub



In article ,
O.... wrote:

I'm Getting Object Required. Run Time Error '424' . Trying to evaluate a
cell and If it's Null do the calculation MyItem = (Month(Now()) / 12 *
G4.Value) and place it cell G1 and if it's NOT Null use the Value in D3 Cell
which is a date and Replace the Now Function in my Calculation. Thanks for
the Help in Advance. O....

Sub MyEvaluate()
Dim MyItem As Long
If IsEmpty(Range("D3").Value) Then
MyItem = (Month(Now()) / 12 * G4.Value)
G1.Value = MyItem
End If
End Sub