Setting values of multiple cells differently when a IF condition evaluates to true

[ankitm1702]

Hello Guys

I am unable to set values of multiple cells differently when an IF condition evaluates to true , below is snapshot of my macro code .

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1").Value = "John" And Range("A2").Value = "Mayor" Then
Range("B1").Value = "Captain"
Range("B2").Value = "Pro Division"
End If

End Sub

I am relatively new to VBA so I suppose this might be a real basic thing , I could have done it using IF function in excel but that only allows upto 64 levels of nesting

Thanks in advance

[TMS]

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, 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

(Note: this change is not optional.)