Seçilen alan için tanımlı ad oluşturmaya yarayan VBA kodudur.
Option Explicit
Sub DinamikTanimliAdOlustur()
Dim seciliAlan As String
seciliAlan = Selection.Address
ActiveSheet.Names.Add Name:="AktifAlan", RefersTo:="=" & seciliAlan
End Sub