If cell value is current end-of-month, clear contents

[fruela]

Hi all, newbie on vba here, if cell value is current end-of-month how to clear cell contents?

This is for a column full of dates.

For range AF2:AF
If cell value =EOMONTH(TODAY();0)
Clear Cell Contents

or

For range AF2:AF
If cell value = AE2
Clear Cell Contents

Cheers

 

[Momentman]

Something like this

Sub ClearCells()
    Dim C As Range
    For Each C In Range("AF:AF")
        If C.Value = Application.WorksheetFunction.EoMonth(C.Value, 0) Then C.ClearContents
    Next C
End Sub

 

[fruela]

Something like this

Sub ClearCells()
    Dim C As Range
    For Each C In Range("AF:AF")
        If C.Value = Application.WorksheetFunction.EoMonth(C.Value, 0) Then C.ClearContents
    Next C
End Sub

Hi Momentman, thank you for your help. I just read searched about WorksheetFunction and this makes total sense.

However when I run it I get the error: "Unable to get the EoMonth property of the WorksheetFunction class"

 

[Momentman]

Hi Momentman, thank you for your help. I just read searched about WorksheetFunction and this makes total sense.

However when I run it I get the error: "Unable to get the EoMonth property of the WorksheetFunction class"

Are you using the code exactly as you have it above?