Dear member BeExcel,
Setiap kali saya selesai execute makro, maka akan keluar pesan ini, apakah
disebabkan saya tertinggal sesuatu dalam penulisan prosidurenya. Contoh
seperti dibawah, apa maksud pertanyaan ini?
'Saya mau bikin sheet management
Private Sub ListBox1_Change()
Sheets(ListBox1.Value).Activate
End Sub
Private Sub UserForm_Initialize()
Dim sht As Worksheet
For Each sht In ThisWorkbook.Worksheets
ListBox1.AddItem sht.Name
Next
End Sub
'dan pada object workbook ditulis bagini
Private Sub workbook_open()
FrmWS.Show
End Sub
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal
Target As Range, Cancel As Boolean)
Dim YaTidak As Long
YaTidak = MsgBox("kamu mau lihat???", vbQuestion + vbYesNo,
ThisWorkbook.Name)
If YaTidak = vbYes Then
Cancel = True
FrmWS.Show
End If
End Sub
