Sub or Function not defined compile error help

[pike]

Hi ,
you can if its in the same module

Option Explicit
Sub FirstCode()
    Dim FormatCell As Integer
    
    FormatCell = ActiveCell.Value
    
    If FormatCell < 20 Then
        
        Call SecondCode(True, "Arial", 22)
    
    End If

End Sub
Private Sub SecondCode(BoldValue As Boolean, NameValue As String, SizeValue)
    
    With ActiveCell.Font
        .Bold = BoldValue
        .Name = NameValue
        .Size = SizeValue
    End With
    
End Sub