Worksheet activate place text in cell.

Hi all,

Think I'm being dumber than normal.

I have a workbook.

When a worksheet (intro) is selected I need the cell B28 to read "No of players that have played for TEAM"

Now the TEAM can be any team, but it is named properly on a sheet called setup in cell D1 and the cell is named MyTeam.

I think that the code should read

Private Sub Worksheet_Activate()
    XXXXX "No of players who have played for" & MyTeam & " ."
    
    
End Sub

I can't fathom out what the XXXXX code needs to be to complete this.

Please can someone help me?

Thanks.

I have managed to get this far

Private Sub Worksheet_Activate()

Range("B28").Value = "No. of players who have played for" + myteam + "."
 
End Sub

I have tried both & and + but cannot get it work

Give this a try:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim CellValue As String

    CellValue = Worksheets("intro").Range("$B$28").Value

MsgBox "No of players that have played for " & CellValue & "."

End Sub

SOLVED:

Private Sub Worksheet_Activate()
Dim MyTeam As String
    MyTeam = Worksheets("set_up").Range("D1").Value
        Range("B28").Value = "No. of players who have played for " + MyTeam + "."
 
End Sub

If the cell in sheet Setup is named myteam, you can simply use

Range("B28") = "No. of players who have played for " & Sheets("Setup").Range("myteam")&"."

Thanks ... I'll give this a spin too.