Установите значение в отдельной книге и вернется к старому значению

Question

Я пытаюсь записать несколько значений из одной книги в другую. Первое значение, которое я устанавливаю, совпадает с раскрывающимся списком в другой книге, которое затем открывает несколько других полей в зависимости от того, какой ввод вы выберете. После запуска кода кажется, что он меняется на нужное мне значение на секунду или две, а затем возвращается к исходному раскрывающемуся значению. Когда я закомментирую для каждого l oop после ввода первого значения, оно вводит значение, которое я хочу, но когда я активирую l oop, первое значение возвращается в исходное состояние. Я пробовал приложение. Подождите 3 секунды, я пробовал ScreenUpdating = TRUE, я пытался сохранить файл после ввода первого значения, но ничего не работает. Когда я жду в течение 3 секунд, кажется, что все обновляется сразу, хотя Application.Wait возникает после ввода первого значения. Любая помощь приветствуется.

Sub Rarorc()
Dim cs As Workbook
Dim calcs As Worksheet
Dim csrrvalrng As Range
Dim i
Dim rr As Workbook
Dim InvFin As Worksheet
Dim csref As String
Dim csval As Variant
Dim rrcell As Variant

Application.ScreenUpdating = True
Set cs = ThisWorkbook
Set calcs = cs.Worksheets("Calculations")
Set csrrvalrng = calcs.Range("RARORC_Table[Field Value]")
Set rr = Workbooks.Open("V:\AarealUSA\Common\ACC Templates\RARORC.xlsm")
Set InvFin = rr.Worksheets("Investment Financing")
csref = calcs.Range("F2")
Set csval = calcs.Range("E2")
Set rrcell = InvFin.Range("D102")

rrcell.Value = csval
ActiveWorkbook.SaveAs "C:\Users\mhenry\Desktop\Capital Simulation\rr.xlsm"
Application.Wait "00:00:03"
For Each i In csrrvalrng
    csval = i
    csref = i.Offset(0, 1)
    Set rrcell = InvFin.Range(csref)
    rrcell.Value = csval
Next i


End Sub