[SOLVED] FormulaR1C1 in Case statement?

[uberathlete]

Hello everyone

I have the following code:

    Dim i As Long
    For i = 2 To Range("A" & Rows.Count).End(3).Row
        Select Case True
        
            Case Cells(i, "A") Like "John"
                Cells(i, "C") = "=$Q$1"
       
        End Select
    
    Next i

This assigns a static formula (=$Q$1) to each cell in column C (starting in C2) if the cell in column A has "John".

However, say I want instead for the formula to pick up a value in column B. So C2 would have the formula =B2*$Q$1 , C3 would be =B3*$Q$1, C4 would be =B4*$Q$1 , and so on , is there a way to modify the code to do this?

Any help would be much appreciated!