IsEmpty problem in visual basic code in module

[lah21]

I am working on some code in an excel module using IsEmpty. I copied some code from an example and the problem still exists. The code is


Sub TestCellA1()
'Test if the value is cell A1 is blank/empty
If isempty(Range("A1").Value) = True Then
MsgBox "Cell A1 is empty"
End If
End Sub

Note that isempty is all lowercase and not as it should be, I have searched all of the worksheets listed under the project viewer Microsoft Excel Objects, and there is no code under any of the worksheets. I have also checked all of the worksheets for occurrences IsBlank and IsEmpty and there are none.

I am at a lost as to what else to look at.

Thanks
Louis

 

[Legacy 456155]

? Right click on the function and select definition. Where does that take you in the object browser?
Also, try VBA.IsEmpty or VBA.Information.IsEmpty

Sub TestCellA1()
    'Test if the value is cell A1 is blank/empty
    If VBA.Information.IsEmpty(Range("A1").Value) = True Then
        MsgBox "Cell A1 is empty"
    End If
End Sub

 

[Fluff]

Do you get any error messages, when you run the code?
If so what?

 

[lah21]

Thank you for the quick replies. First neither adding VBA. or VBA.Information solved the problem. When VBA.IsEmpty or VBA.Information.IsEmpty is used, IsEmpty apereas normally, but as soon as you click outside of the statement, it becomes all lowercase.

I add an "Else" option to the If statement to display a message box indicating the cell was not empty. When the code is executed there are no error messages and the "If" statement fails and the message that the cell is not empty appears. This what happens in my original code.

LAH21

 

[lah21]

I modified the code so that the IF tested of False instead of True, and changed messages accordingly. The new code is

Sub TestCellA1()
'Test if the value is cell A1 is blank/empty
If VBA.Information.isempty(Range("A1").Value) = False Then
MsgBox "Cell A1 is not empty"
Else
MsgBox "Cell A1 is empty"
End If
End Sub

In this instance it does not fall through to the Else statement and the message "Cell A1 is not empty" is created. So with the original code and the modified code gives the same message.

 

[Norie]

Do you have anything named isempty in the workbook?

 

[lah21]

Now this is interesting. I cleared cell A1 and reran the modified code. This the the If statement fell through to the Else statement and the correct message was created that the cell was empty,

It appears that the IsEmpty is working even though it is all lower case.

LAH21

 

[lah21]

OK, did not know how to do it.

There is no other occurrence of isempty or IsEmpty that I can find. I searched all of the workbooks and all of the code in this project. The only occurrences are of IsEmpty in commented out statements.

 

[Norie]

What about named ranges?

Do you have any add-ins installed?

 

[Legacy 456155]

I've always wondered about the occasional forced lower/upper case on some of my variables. Never could figure out the source of it. Have you searched all libraries in your object browser for IsEmpty? Just curious if there is another function in some other reference. Does your project compile?