VBA If Not IsEmpty

[Pinaceous]

Hi All,

I'm working with a this code below that works great!

It first checks on sheet1 cell D3 to first see if there is a value before it provides a date stamp.

Here is the code:

Sub Macro16()
'
' Macro16 Macro
'
'
    Application.Cursor = xlWait  'during processing
        If Not IsEmpty(Sheet1.Range("D3").Value) Then
        
        MsgBox ("This was already executed!                                                                                          Please use the SAVE ICON at the TOP LEFT TO SAVE YOUR DOCUMENT!")
         
    Application.Cursor = xlDefault  'on completion / error
         
        Exit Sub
         
        End If
        
        Call UNLockCell
        Call AddDateStamp
    
        Call SaveAsXLSM
        
        
    Application.Cursor = xlDefault  'on completion / error
       
     
        
      
End Sub

Now my question is, when I change this code to execute it for another sheet, for example sheet10 in the code below it does not work and I can't figure it out.

Sub Macro33()
'
' Macro33 Macro
'
'
 

        If IsEmpty(Sheet10.Range("B2").Value) Then
        
        MsgBox ("The IMPORT HAS to be executed FIRST!!")
         
  
    
    
        Exit Sub
         
        End If
        
 
        
        
    Application.Cursor = xlDefault  'on completion / error
       
     
        
      
End Sub

If I type a date into sheet10 cell B2, I'd expect the MsgBox to popup

The IMPORT HAS to be executed FIRST!!

in using Macro33 above, but it does not (?).


Can someone try and help me out on this?


Thanks,
Pin

 

[Pinaceous]

Oh I think I know, I've reversed the code:

If IsEmpty

So, does anyone know I can write instead for its opposite;

IF IS NOT EMPTY

to be written in my 2nd code for the Macro33 I have posted here???

 

[MrTeeny]

The syntax for the opposite of If IsEmpty is If Not IsEmpty

 

[Pinaceous]

The syntax for the opposite of If IsEmpty is If Not IsEmpty

Thank you MrTeeny!