Calling procedures from a procedure

Hot Topic

Creating my own object in VBA
VBA Excel - Using FindNext function
Count and display in cell
calling a function and passing the name of the recordset
Check diff
Using arrows to select in drop down list in access
VBA Capture Keypress
Challenge writing a macro for setting Mergefields properties
Argument syntax problem
GET.CHART.ITEM

Microsoft ISV

whats wrong with this code?
Sum of hours using select statement & VBA
personalized command bar disappears when minimizing excel
Compatibility Issue Excel 2000 and Excel 2003
Adding data in one column based on another column using VBA
Office 97 / Windows 2000 Compatability
How do I execute code when I open a workbook?
Code for end of month activity submission in an activity system
Allowing the user to pick a cell in excel
VB in word 2000 / form built into a template

Calling procedures from a procedure

Hello there
I hope this question is not too stupid.
I am formatting a contractual document using some simple VBA. According to the options a user chooses in a window, Word should select one of sixteen ways to format the doc when OK is clicked. Having all sixteen 'formatting scripts' in one procedure with the accompanying IF.. THEN... ELSEIF statements was too long, so I have made each 'formatting script' a procedure.
Trouble is, when I try to call the procedures, nothing happens. What am I doing wrong
Here's what it looks like:

-------------------------

Private Sub cmdOK_Click()
frmContractSetup.Hide
Unload frmContractSetup

If chkUseRetainer = True And chkQuebec = True And chkLarge = True And chkUseLump = True Then

'[Load of VBA statements here, like:]
Selection.GoTo What:=wdGoToBookmark, Name:="Acknowledgement"
With Selection.Font
.Hidden = True
End With

'[Load more code..., then...]

ElseIf chkUseRetainer = True And chkPercentage = True And chkLarge = True And chkUseLump = False Then Call zB()

ElseIf chkUseRetainer = True And chkPercentage = True And chkLarge = False And chkUseLump = True Then Call zC()

[And some more ElseIf statements...]

End If

...

The procedures to be called, (zB, zC, etc.), are all stored in the project. I even tried storing them directly beneath the main procedure. They all essentially take the form:

Sub zB()

Selection.whatever...

End Sub

Hope this is sufficient information and I hope you can help.

Oh, I am using Word 2003.

Many thanks

Russ

Answer this question

Calling procedures from a procedure

  • GiMi

    Russ –

    Write a Sub Test() that sets a few of the parameters, execute it a step at a time, and trace through the code with the Locals window open.



  • Solent

    Many thanks Peter.

    I solved it by using application.run "ProjectName, ModuleName, ProcedureName. However, I used your Test and it is a useful new tip.

    Cheers

    Russ
  • Calling procedures from a procedure
Answer this question