close_month

1.vbs

Private Sub CommandButton1_Click()
	On Error Resume Next
	path1 = [Q1]
	path2 = [Q2]
	shablon = [Q3]
	Application.ScreenUpdating = False
	For Each num In ActiveSheet.Range([Q4])
		path_ = Replace(Replace(Replace(shablon, "№", num.Row), "@@@", path2), "###", path1)
		ActiveSheet.Cells(num.Row, "P").FormulaLocal = "=" + path_
	Next num
	refresh_ path1 & path2
	Application.ScreenUpdating = True
	MsgBox "OK"
End Sub

Function refresh_(path)
    On Error Resume Next
    ActiveWorkbook.UpdateLink Name:=path, Type:=xlExcelLinks
End Function

Private Sub CommandButton2_Click()
	refresh_ path1 & path2
	MsgBox "OK"
End Sub