joseph4tw

Option Explicit

Public Sub DoWork()
    Dim name As String
    name = "John"

    Call PrintName(name)
    Debug.Print "DoWork: " & name
End Sub

joseph4tw

Option Explicit

Public Sub DoWork()
    Dim name As String
    name = "John"

    Call PrintName(name)
    Debug.Print "DoWork: " & name
End Sub

joseph4tw

Option Explicit

Public Sub DoWork()
    Dim name As String
    name = "John"

    Call PrintName(name)
    Debug.Print "DoWork: " & name
End Sub

joseph4tw

Option Explicit

Public Sub MyPublicSub()
    Call MyPrivateSub("John", 28)
    MyPrivateSub "John", 28
End Sub

Private Sub MyPrivateSub(name As String, age As Long)
    Debug.Print name + " is " & age & " years old."
End Sub

joseph4tw

Option Explicit

Public Sub MyPublicSub()
    Call MyPrivateSub ' use the Call keyword
    MyPrivateSub      ' just call the sub procedure
End Sub

Private Sub MyPrivateSub()
    Debug.Print "In MyPrivateSub"
End Sub

joseph4tw

' In Module1
Option Explicit

Public Sub MyPublicSub()
    Call Module2PrivateSub
End Sub

' ---------------------
' In Module2
Option Explicit

joseph4tw

Option Explicit

Public Sub MyPublicSub()
    Call DoSomeWork
    Call MyPrivateSub
End Sub

Private Sub DoSomeWork()
    Debug.Print "Work work work work work"
End Sub

joseph4tw

Option Explicit

Public Sub MyPublicSub()
    MsgBox "Hello!"
End Sub

Private Sub MyPrivateSub()
    MsgBox "Hi there!"
End sub

joseph4tw

' In Module1
Option Explicit

Public Sub Module1Test()
    Call Module2Test
End Sub

' ----------------
' In Module2
Option Explicit

joseph4tw

' Public Sub Procedure
Public Sub TestSub()
  ' code goes here
End Sub

' Private Sub Procedure
Private Sub TestSub()
  ' code goes here
End Sub