ב"ה מצאתי את הדרך לפקודת מאקרו שתפתח לעריכה פקודת מאקרו אחרת הקוד הוא:
Private Sub macro1edit()
Dim line As Long
line = Application.VBE.ActiveVBProject.VBComponents("module1").CodeModule.ProcStartLine("macro1", 0)
Application.VBE.ActiveVBProject.VBComponents("module1").CodeModule.CodePane.SetSelection line, 1, line, 1
Application.VBE.ActiveVBProject.VBComponents("module1").CodeModule.CodePane.Show
End Sub
השורה הארוכה הראשונה מזהה באיזו שורה מתחיל המאקרו השנייה שמה את הסמן על אותה שורה והשלישית פותחת את המודל המדובר.
כמובן לשנות את "module1" לשם המודל בשלושת השורות
ואת "macro1" לשם המאקרו
![חיפוש גוגל בפורום](javascript:{bootbox.prompt({title:'<div style="text-align: center;"><img src="/assets/uploads/files/1625950269825-mt-google.png" width="400"></div>',placeholder:'כתוב מילים לחיפוש ב Google',buttons:{confirm:{label:'חיפוש'},cancel:{label:'ביטול'}},backdrop:true,callback:function(result){if(result!=null&&result!=''){var a=document.createElement('a');a.href='https://www.google.co.il/search?q=site:mitmachim.top '+encodeURIComponent(result.trim());a.target='_blank';a.click();}}})();};){kind=link}