VBA to check if today's date in range if not skip

[ItalianPlatinum]

I am looking for a line of code to stop my exiting code from running if it cannot find today's today in YYYYMMDD format in column B.

 

[Joe4]

What is the format of the cells in column B?

Are they valid dates with a "yyyymmdd" format?
Or are they just a General or Numeric format (meaning the value is the cell is really the number 20241218 and not a date)?

 

[ItalianPlatinum]

I have them in general Format. So they are numeric

 

[Joe4]

OK, so those entries are not dates at all, but rather numbers.

You should be able to use this block of code to do what you want:

'   Convert todays date to a number that looks like yyyymmdd
    Dim d As Long
    d = Format(Date, "yyyymmdd") + 0
    
'   See if the current date is found anywhere in column B
    If Application.WorksheetFunction.CountIf(Range("B:B"), d) > 0 Then
        'whatever you want to happen here if the date is found in column B
    End If

 

[ItalianPlatinum]

I may be interpreting/translating this incorrectly. But I am looking to end my VBA if there are no dates that equal today. The below is jumping to the ELSE therefore as if its finding dates for today?

    Dim d As Long
    
Application.ScreenUpdating = False
Application.EnableEvents = False

'set shortcut for with sheets

'set shortcut without "with"

'Use either workbook extension to avoid file extension option issue
    
d = Format(Date, "yyyymmdd") + 0
    
'check if any ex dates to evaluate if not end sub
If Application.WorksheetFunction.CountIf(Range("B:B"), d) = 0 Then

With WsRUN
    .Activate
End With
    
MsgBox "No activity for Today"
    
Else
    'if there are dates run other code