How to call a procedure or module in another procedure or module VBA Excel

Here is the solution to call a procedure or module in another procedure or module VBA Excel.
Code from Module 1

Public Sub ScriptFooter(FileNum As Integer)
Print #FileNum, "</tbody></table>"
End Sub
Code from Module 2.
Public Sub CommandButton1_Click()
'code written on 21/01/2010 by Pavandeep Puddupakkam
Dim FileNum As Integer
Sheets("Search").Activate
FileNum = FreeFile ' next file number
Open "C:\XXX.txt" For Output As #FileNum ' creates the file if it doesn't exist
Call Module1.ScriptFooter(FileNum)
Close #FileNum ' close the file
End Sub


Leave a Reply

Your email address will not be published. Required fields are marked *

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>