Warning: session_start() [function.session-start]: Cannot send session cookie - headers already sent by (output started at /home/dbswav/public_html/excelwithkenan.com/goster_hazir_makrolar.php:61) in /home/dbswav/public_html/excelwithkenan.com/header.php on line 2

Warning: session_start() [function.session-start]: Cannot send session cache limiter - headers already sent (output started at /home/dbswav/public_html/excelwithkenan.com/goster_hazir_makrolar.php:61) in /home/dbswav/public_html/excelwithkenan.com/header.php on line 2

Excel Free Macros (VBA)

---

Listing Subprograms İn A Workbook

Online Excel and Excel Macro (VBA) Courses

Copy Macro 'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php Sub CheckForSubs() Dim li_CurrentLine As Integer Dim li_ArguementsStart As Integer 44 Dim ls_Line As String Dim l_Component As Object ' Look at each VB Component (form/class/module) in turn For Each l_Component In ActiveWorkbook.VBProject.VBComponents ' Only look at modules. Other types are: 2=Class, 3=Form, '100=Worksheet If l_Component.Type = 1 Then 'Work through each line of code in turn For li_CurrentLine = 1 To _ l_Component.CodeModule.CountOfLines ls_Line = l_Component.CodeModule _ .Lines(li_CurrentLine, 1) ' Remove spaces from the start in case of indentation ls_Line = Trim$(ls_Line) ' See if this line is what we want. If Left$(ls_Line, 3) = "Sub" Then li_ArguementsStart = InStr(ls_Line, "()") If li_ArguementsStart > 0 Then MsgBox Mid$(ls_Line, 4, _ li_ArguementsStart 4) End If End If Next li_CurrentLine End If Next l_Component End Sub

Report problem with this macro

This macro does not work.
There's an error in the code.
Other
You can write your comments about the error in the box below.

Report error

ALL MACROS Youtube Channel
The following macros may be useful for you.

Similar Results

No	Macro Name
1	Listing Subprograms in a Workbook
2	Assign another command to the right mouse button
3	Copy and paste any Excel sheet into another Excel file
4	List the names of Excel files in a folder then give them a link
5	specifies in detail how many references the book contains (on new sheet / page)
6	automatic image fetch
7	Using the name manager to determine whether a particular cell or region or anything is named
8	excel fonts 2
9	Search for a text / text in all open Excel files
10	Prevent saving Excel file
11	Delete a module using macro in Excel
12	Determining whether said Excel file is open or not
13	Determining the name of the sheet / page and file containing the active cell
14	Shut down the computer completely using a macro
15	Shutdown and restart the computer
16	Shut down computer with macro
17	Add menu to file edit bar delete
18	list formulas on new sheet / page
19	specifies in detail how many formulas are in the book (on new sheet / page)
20	List sheet / page names in Excel file

---

---

Online Excel Courses

Online Excel Courses are here...

Click to see

Services

• Advanced Excel Courses
• Excel Macro Courses
• Comporate Valuation Courses
• Financial Mathematics
• Financial Modeling
• Comporate Valuation Services

How can we help you?

You can contact us about our services.

Contact us

Subscribe to our Youtube Channel?

Here are the videos that will make your life easier using Excel.

Subscribe Now

Keywords

Excel Videos Advanced Excel Courses Free Macros Free Excel Templates Excel Macro Courses