help with Code modification

I have the following code that I would like to modify so where it says (result "pass") I would like to see the result of C1+D1 in value So it never changes again.
I need to repeat this from cell A1 to cell A500

Can it be done?

Thank you

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim score As Integer, result As String
A1 = Range("A1").Value

If A1 > 0 Then
    result = "Pass"
End If

Range("B1").Value = result

End Sub

Please take a moment to read the forum rules and then amend your thread title to something descriptive of your problem. Once you have done this please send me a PM and I will remove this request. (Also, include a link to your thread - copy from the address bar)

To change a Title on your post, click EDIT POST then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.

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

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

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

I will add them for you - this time