alo yokanan wahyono,

berikut ini script macronya (plus di-set format ke GENERAL) :
'-------------
Sub GeneralKosong()
    Cells.Select
    Selection.Delete Shift:=xlUp
    Selection.NumberFormat = "General"
    Range("A1").Select
End Sub

semoga bisa membantu...

regards,
-suki-
Info terbaru ttg Fujitsu; Kopdar Pertama di Jkt: kunjungi 
http://top31.net/fujitsu-fans-club/
Koleksi Semua Artikel Menarik: http://www.gsn-soeki.com/wouw/



.

Kirim email ke