Help with function in VBA

This is very basic question on funcion writing. I cannot get the syntax right.

I want to check a cell value in this way:

=IF(B4<100%)

Then change a date value:

NewDateValue=DATE(YEAR(A1),MONTH(A1)+1,DAY(A1))

write NEWDateValue to cell

I would greatly appreciate help with this. Thanks!

e.g

Please Login or Register  to view this content.

Here is what I wrote and I am getting #value error

Function ChangeStartDate(PercentComplete)
If (PercentComplete < 100) Then

newdatevalue = DateAdd("m", 1, [F1])
[K1] = newdatevalue
End If
End Function

1)
Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Click on Edit to open your thread, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

2) What are you really trying to do?
Better explain in words.
my guess.

Please Login or Register  to view this content.