Coba di perbaiki sedikit Macronya, Sub Coba() Dim ws As Worksheet 'utk deklarasi variable Application.DisplayAlerts = False 'utk meniadakan display (tampilan) dialog For Each ws In ActiveWorkbook.Worksheets 'utk looping seluruh worksheets dalam Workbook If ws.Name = "Hapus" Then ws.Delete'Untuk menghapus ws (Worksheet) bernama "Hapus" End If Next End Sub
Salam, Hendrik Karnadi ________________________________ From: "[email protected]" <[email protected]> To: [email protected] Sent: Friday, 30 March 2012, 12:13 Subject: [belajar-excel] Macro - belajar deteksi nama sheets dear all, mohon dibantu lagi. saya ingin mendeteksi dulu dalam 1 workbook, apakah ada sheet yang dituju, bila ada nanti nya akan ada action berikutnya. saya masih bingung bagaimana cara deteksinya. yang saya buat seperti ini (misal sheet nya ingin di delete) : If Worksheets.Name = "hapus" Then Sheets("hapus").Delete End If tapi malah muncul warning kira2 bunyinya "object or method not find". penulisan deteksi sheet tersebut saya contek dari sheet nya pak Hendrik tentang workbook dibuat expired. kira2 salahnya dimana ya? maaf kalau pertanyaannya newbie bgt. salam vega
Hapus.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
