Hi,
I am trying to set up a Workbook to update another, and it should be simple.
I am working with the following code, which seems to work except it is requiring me to click on the Work Sheet for every cell I want to update. 

Public Sub TransferTDrive()
Dim Location As String


Location = "T:\NAFI\cmmpls\Acct\Business-Metrics\Plant Scorecards-FY12\[Corn Milling FY12 Plant Ratings.xls]"
    Range("O6").Value = "='" & Location & "Cedar" & "'!O6" 'LSI
    
    Range("O7") = "='" & Location & "Cedar" & "'!O7" 'Injuries
    Range("O12") = "='" & Location & "Cedar" & "'!O12" 'RIFR
    Range("O22") = "='" & Location & "Cedar" & "'!O22" 'Rejections
    Range("O23") = "='" & Location & "Cedar" & "'!O23" 'Food Safety
    Range("O24") = "='" & Location & "Cedar" & "'!O24" 'OpRER
    Range("O31") = "='" & Location & "Cedar" & "'!O31" 'Carepoints
    Range("O45") = "='" & Location & "Cedar" & "'!O45" 'I2I
    Range("O47") = "='" & Location & "Cedar" & "'!O47" 'Costs
    Range("O48") = "='" & Location & "Cedar" & "'!O48" 'Kaizen
    Range("O49") = "='" & Location & "Cedar" & "'!O49" '5S
    Range("O21") = "='" & Location & "Cedar" & "'!O21" 'CQI
    
    Application.ScreenUpdating = False

MsgBox "Macro is Complete", vbOKOnly + vbInformation

End Sub