Хранение текста ячейки в строковой переменной VBA

Question

Я пытаюсь автоматизировать создание слайдов PowerPoint с использованием VBA. Я новичок и учусь сам, поэтому иду шаг за шагом. В настоящее время я пытаюсь автоматизировать только один слайд. Я сделал код для создания диаграмм, которые мне нужны для этого слайда, и код, чтобы поместить его в нужное место в PowerPoint (наверняка мне нужно будет что-то изменить), и я создал еще один Sub для создания всех диаграмм. и PowerPoints одновременно. Имеется +/- 40 магазинов, и каждый PPT содержит слайд с графиком для этого магазина и зоны, в которой находится магазин.

Выше расположены магазины, а затем зоны

Я пытаюсь сохранить в переменной с именем «nome» значение имени каждого хранилища внутри for, но я получаю сообщение об ошибке, сообщая, что диапазон методов объекта _global fail here »nome = range (Cells (4, я)). Текст ". Я смотрел везде, и я не могу понять, как сделать это правильно. Вот код:

Sub TesteTUDO()


    Dim nome As String
    Dim zona As String
    Dim ra As range
    Dim rb As range



        For i = 3 To 47
        nome = range(Cells(4, i)).Text
            Set ra = range(Cells(5, i), Cells(7, i))
            Call TesteCriarGrafico(ra)

            Workbooks.Open ("C:\Users\HP EliteBook 840\Desktop\Lojas por Zona de Vida.xlsm")



        For j = 1 To 47
        If StrComp(Cells(j, A), nome, vbTextCompare) = 0 Then
            If range(Cells(j, A)).Text = nome Then
                zona = Application.ActiveSheet.range(Cells(j, B)).Text
                Workbooks("Lojas por Zona de Vida.xlsm").Close

                Workbooks.Open ("C:\Users\HP EliteBook 840\Desktop\Ficheiro Resultado.xlsm")
                Worksheets("Sheet1").Activate


        For y = 3 To 9
            If range(Cells(13, y)).Text = zona Then
                Set rb = range(Cells(14, y), Cells(16, y))
                Call TesteCriarGrafico(rb)
                Call TesteCriarPPT (nome)
                Else
                End If
            Next y
        Else
        End If
        Next j
    Next i


End Sub