Application.WorksheetFunction.EoMonth

[robertvdb]

I have some VBA code which prevents an action on the last day of a given month. The dates are in column A

I use:

If Not Application.WorksheetFunction.EoMonth(Range("A" & i).Value, 0) = Range("A" & i).Value Then  
       'do something
End If

Now I want the same for the first day of that month. Is there a similar function for the 1st day ?

 

[RoryA]

You can take the end of the previous month and add 1.

 

[robertvdb]

Thanks Rory

I put the below line, and it works fine.

If Not Application.WorksheetFunction.EoMonth(Range("A" & i).Value - 1, 0) + 1 = Range("A" & i).Value Then