
Range("B" & n).Activate
ActiveCell.FormulaR1C1 = "=COLLEG.IPERTESTUALE(CONCATENA(""\SERVERVolume (T)Ufficio Espropri14 - CORRISPONDENZA UFFFICIO ESPROPRIprotocolli scansitiin uscita"";R[0]C[-1];""_"";ANNO(R[0]C[+1]);"".pdf"");""link"")" |
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"\SERVERVolume (T)Ufficio Espropri14 - CORRISPONDENZA UFFFICIO ESPROPRIprotocolli scansitiin uscita" |
