Good Morning

I can't find the answer to my question.
The macro below selects the cells M2 to M30 to place a
Worksheetformula.
That works all right
But at the same time the formula has to raise the sheetnames in the
next cells from Player 2 to
Player 3, Player 4 and so on.
I can't figure out if this is possible at all and if yes how to do
so.
Sheets("Player 1").Select
For x = 2 To 30
Range("M" & x).Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-5]="""","""",IF(AND(RC[-9]=RC[-7],'Player
2'!R6C4='Player 2'!R6C6),1,IF(RC[-9]=RC[-7],2,0)))"
Next x

Looking forward to your answer.

Piet