Code:
'ActiveSheet.Name = ActiveSheet.Range("A2")
'ActiveSheet.Name = Range("C5").Value & Range("A1").Value
'& ActiveSheet.Range("name")
ActiveSheet.Name = Range("D16").Value & Range("I5").Value
Opgelost : ActiveSheet.Name = Range("D16").Value & Range("I5").Value
Pierre
Laatst bewerkt: