Terima kasih atas jawaban dan perhatiannya. Tapi sepertinya code ini 
sangat panjang menurut saya. Dan code dari Mr. Kid lebih pendek yaitu Range( 
Range("d3") , range("d3").end(xldown) ).name = "RangeNama" .

Wassalam.
Tio





[email protected]
Sent by: [email protected]
01/28/2013 10:45 AM
Please respond to belajar-excel

 
        To:     [email protected]
        cc: 
        Subject:        Re: [belajar-excel] Buat Nama Range di range tertentu


 
Sub proses()

Dim barisakhir as range
Dim rangenama, rangeD as range

With activesheet
barisakhir = cells.specialcells(xlcelltypelastcell).row
End with

Set rangeD = Activesheet.range([D3], "D" barisakhir)

Activeworkbook.names.Add Name:="rangenama", refersTo:rangeD
End Sub

From: [email protected] 
Sender: [email protected] 
Date: Mon, 28 Jan 2013 09:37:52 +0700
To: [email protected]<[email protected]>
ReplyTo: [email protected] 
Subject: [belajar-excel] Buat Nama Range di range tertentu



Dear Be-Exceller, 

Saya mau buat nama range dari cel D3:D7, saya sudah buat code VBA sbb. : 



tapi tidak berhasil, file terlampir : 



Tolong pencerahannya, 

Terima kasih, 

Wassalam, 
Tio 


Kirim email ke