strPath = "C:\Documents and Settings\MASBRED\My Documents\My Reminder.xlsm"
strMacro = "ThisWorkbook.Workbook_Open"
Set objApp = CreateObject("Excel.Application")
objApp.Visible = False
Set wbToRun = objApp.Workbooks.Open(strPath)
objApp.Run wbToRun.Name & "!" & strMacro
Enaknya taruh file vbs nya di dekstop agar gampang manggilnya, mungkin
yaa.. sesuaikan selera aja deh
Wassalam On 2/1/2013 2:31 PM, s. munawaroh wrote:
gimana caranya untuk membuat reminder di excel untuk pegawai yang sudah habis masa kontraknya?? jadi bentuknya seperti pop up gitu,.. mohon bantuanya.,.. __
My Reminder.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12

