Sub ByC()
Dim SF10 As String

SF10 = ThisWorkbook.Sheets("TS").Range("B6").Value

str10 = Right(SF10, Len(SF10) - InStrRev(SF10, "\"))
Windows(str10).Activate

    Sheets("Summary").Select
    Columns("C:C").Select
    Selection.Copy
    Sheets("ByCustomer").Select
......................