Please forgive my insistence, but I am so close to achieving my goal. Know that I truly value any and every piece of advice given to me in this Forum.
Please take look at the code below, it has come from helpful postings to a previous thread of mine. However, I don’t think that I was clear enough in expressing what my problem was, so I think that I ended up causing some confusion. In an effort to more clearly express my problem, I have worked on the code – with as limited knowledge as I possess – to perhaps communicate my intention. I know for a fact that in the code below there are 2 problematic lines – and herein lies the root of my problem. The first line is: “Dim Day As String” In Debugger speak, I am told that this cannot be done along with “Set sh = Worksheets(Day.Value)”. However, in normal speak, I am trying to copy data from one sheet to another. When pasting the data on the second sheet, I am trying to make the code find the appropriate sheet that matches a Day value in Cell I5. Getting the code to execute this one action is proving to be particularly difficult. I am thankful for any suggestion on how to get the code to work correctly.
Sub Update_Retailer()
Dim sh     As Worksheet
Dim Day    As String

    ThisFile = ThisWorkbook.Name
    PathName1 = Sheets("SUMMARY").Range("H1").Value
    Filename1 = Sheets("SUMMARY").Range("H2").Value
    Day = Sheets("SUMMARY").Range("I5").Value

    Workbooks.Open Filename:=PathName1 & Filename1
    Sheets(2).Activate
    Range("K8:K31").NumberFormat = "#,##0.000000"
                Selection.Copy
    
    Windows(ThisFile).Activate
    Set sh = Worksheets(Day.Value)
    Range("C7:C30").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub