Renaming worksheets names based on cell value in main worksheet

Hi,

I am importing worksheets "Week 1" to "Week 5" from a workbook named in cell "H12"

I would like to rename the worksheets being imported to be - "Week 1 - "U3" " and so for the rest of the weeks. Where "U3" are initials.

Example - "Week 1 - JB"

Dim CopyFromBook As Workbook
    Dim CopyToWbk As Workbook
    Dim ShToCopy As Worksheet
    Dim shDashboard As Worksheet
'Copy individual week timesheets from respective team member
    Set CopyToWbk = Workbooks("20150319_SPD_PREP_Timesheet Dashboard_AH_v0.3.xlsm")
    Set shDashboard = CopyToWbk.Worksheets(Range("T3").Value)
    Set CopyFromWbk = Workbooks(shDashboard.Range("H12").Value)
    
        Set ShToCopy = CopyFromWbk.Worksheets("Week 1")
    ShToCopy.Copy After:=CopyToWbk.Sheets(CopyToWbk.Sheets.Count) 'Need to rename "Week 1" to "Week 1 - "U3"
        Set ShToCopy = CopyFromWbk.Worksheets("Week 2")
    ShToCopy.Copy After:=CopyToWbk.Sheets(CopyToWbk.Sheets.Count) 'Need to rename "Week 1" to "Week 1 - "U3"
        Set ShToCopy = CopyFromWbk.Worksheets("Week 3")
    ShToCopy.Copy After:=CopyToWbk.Sheets(CopyToWbk.Sheets.Count) 'Need to rename "Week 1" to "Week 1 - "U3"
        Set ShToCopy = CopyFromWbk.Worksheets("Week 4")
    ShToCopy.Copy After:=CopyToWbk.Sheets(CopyToWbk.Sheets.Count) 'Need to rename "Week 1" to "Week 1 - "U3"
        Set ShToCopy = CopyFromWbk.Worksheets("Week 5")
    ShToCopy.Copy After:=CopyToWbk.Sheets(CopyToWbk.Sheets.Count) 'Need to rename "Week 1" to "Week 1 - "U3"
    shDashboard.Activate

Your assistance would be much appreciated.

A-man

Thanks! This did the trick - much appreciated.