Я пытаюсь ввести формулу в ячейки, основываясь на месяце года.Проблема, с которой я сталкиваюсь сейчас, состоит в том, что та же самая строка, которая используется для именования листа, не может быть правильно введена в формулу.Я получаю =Jan-'19'!N876 вместо ='Jan-19'!N876 в клетке.Ценю, если кто-нибудь может помочь с этим.Спасибо!
Sub Summary()
Dim wb As Workbook
Dim sht1 As Worksheet
Dim sht2 As Worksheet
Dim row As String
Dim newmth As String
newmth = Format(DateAdd("m", -1, Date), "mmm-yy")
row = 4
Set wb = ThisWorkbook
Set sht1 = wb.Sheets(newmth)
Set sht2 = wb.Sheets("Summary")
Application.ScreenUpdating = False
Do While sht2.Range("B" & (row)) <> ""
If sht2.Range("B" & (row)).Text = newmth Then
sht2.Range("D" & (row)).Formula = "=" & sht1.Name & "!" & "N876"
End If
row = row + 1
Loop
Application.ScreenUpdating = True
End Sub