Help PLEASE! SHEET IS A VARAIBLE... My formula don't work!

I have set Active Sheet as variable s;

Then i select Sheet1;

On cell A1 in Sheet1 i need to get B1; space; B2 from sheet s + the content that was aleready in A1 in Sheet1.

 
Sub A()
  
Dim s As Worksheet
Set s = ActiveSheet[/COLOR]
    
Sheets("Sheet1").Select
         


'--------PROBLEM

Range("A1") = Range("A1") & " " & "='" & s.Name & "'!B1" & " " & "='" & s.Name & "'!B2"

'--------PROBLEM



End Sub