Message Box when opening Workbook

[howard]

I have setup the following code in the workbook module

If D25 on Sheet "Debtors" is greater than 0, the message box to pop up with message "Item has been processed" and if D25 is zero or blank then message to appear "Items not yet processed"

Where D25 is > 0 then message show "Item Processed" as well as "Item not yet processed"

message box only to show "Item not yet processed" if D25 is zero or blank

It would be appreciated if someone could kindly amend my code

 Private Sub Workbook_Open()
With Sheets("Sales")
If Range("D25") > "0" Then
MsgBox "Item processed"
Else
 End If

MsgBox "Item not yet processed"
End With

End Sub

 

[StephenCrump]

The unqualified range reference Range("D25") will refer to the ActiveSheet. You need to say:

With Sheets("Sales")
    If .Range("D25") > 0 Then
    '....
'OR

If Sheets("Sales").Range("D25") > 0 Then
    '...

I'm not clear about your processed/not processed logic, but at least your code and description are consistent. Do you need to allow for the possibility of negative values / text values?

 

[howard]

Thanks for the help. There value will always be positive, zero or blank