Mybad! Must attach the sheet7 reference to the opened workbook:
        'This is the section to customize, replace with your own action code as needed
            'create a map here of the cells you want to "add"
            .Range("A7").Value = .Range("A7").Value + wbData.sheet7.Range("A7").Value
            .Range("B9").Value = .Range("B9").Value + wbData.sheet7.Range("B9").Value
            .Range("C7").Value = .Range("C7").Value + wbData.sheet7.Range("C7").Value

            wbData.Close False                                'close file
            NR = .Range("A" & .Rows.Count).End(xlUp).Row + 1  'Next row
            Name fPath & fName As fPathDone & fName           'move file to IMPORTED folder
        End If
        fName = Dir                                       'ready next filename