I have posted this question before and unfortunately, the answer seemed to
work once now I have this problem again. Can anyone help here please. This
macro Sub GenDetailsMen(), is what I want to use to call the 14 macros below,
which all populate other sheets with the information held on sheet 3. They
all worked individually, but I get a 400 or 1004 message every time I ty to
use it. Where am I going wrong please.

Thanks



'THIS CALLS MACROS OFF OTHER SHEETS TO CLEAR CONTENTS AND REPOPULATE THE
SHEETS FOR A NEW START'


Sub GenDetailsMen()
ActiveSheet.Unprotect ("sybs")



If MsgBox("You are about to Populate all the EVENT sheets with the names of
the Contestants you have entered on this Sheet. Please carefully check that
all names have been entered as you can not add/delete or change these Names
after confirming. Do you want to proceed?", vbYesNo, "Delete Data") = vbYes
Then
If MsgBox("PLEASE ENSURE YOU HAVE CHECKED THESE ENTRIES CAREFULLY
BEFORE CONTINUING. Do you want to proceed?", vbYesNo, "Generate Details") =
vbYes Then


Call Footpoprowsmen
Call Throwpoprowsmen
Call Speedpoprowsmen
Call ARlist2men
Call copyARcardsdown
Call Worklistmen
Call Worklist2men
Call copyWKcardsdown
Call ITTCCpoprowsmen
Call SPEEDprint
Call Footprint
Call Throwprint
Call Airprint
Call Workprint


ActiveSheet.Protect ("sybs")
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End If
End If
End Sub

When you get the Excel error message, click on the "Debug" button in the
error box. This will take you to the code (macros) and will highlight the
offending line of code. Perhaps this will give you a clue as to what is
wrong. Or you can post some of the code that includes the offending line.
HTH Otto
"SYBS" wrote in message
...
I have posted this question before and unfortunately, the answer seemed to
work once now I have this problem again. Can anyone help here please.
This
macro Sub GenDetailsMen(), is what I want to use to call the 14 macros
below,
which all populate other sheets with the information held on sheet 3.
They
all worked individually, but I get a 400 or 1004 message every time I ty
to
use it. Where am I going wrong please.

Thanks



'THIS CALLS MACROS OFF OTHER SHEETS TO CLEAR CONTENTS AND REPOPULATE THE
SHEETS FOR A NEW START'


Sub GenDetailsMen()
ActiveSheet.Unprotect ("sybs")



If MsgBox("You are about to Populate all the EVENT sheets with the names
of
the Contestants you have entered on this Sheet. Please carefully check
that
all names have been entered as you can not add/delete or change these
Names
after confirming. Do you want to proceed?", vbYesNo, "Delete Data") =
vbYes
Then
If MsgBox("PLEASE ENSURE YOU HAVE CHECKED THESE ENTRIES CAREFULLY
BEFORE CONTINUING. Do you want to proceed?", vbYesNo, "Generate Details")
=
vbYes Then


Call Footpoprowsmen
Call Throwpoprowsmen
Call Speedpoprowsmen
Call ARlist2men
Call copyARcardsdown
Call Worklistmen
Call Worklist2men
Call copyWKcardsdown
Call ITTCCpoprowsmen
Call SPEEDprint
Call Footprint
Call Throwprint
Call Airprint
Call Workprint


ActiveSheet.Protect ("sybs")
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End If
End If
End Sub

hi,
application defined or object defined errors. and with 14 macros that could
be a number of things.
Have you tried stepping through the cond to see which line(s) of code are
triggering the errors? that would be helpful.

regards
FSt1

"SYBS" wrote:

I have posted this question before and unfortunately, the answer seemed to
work once now I have this problem again. Can anyone help here please. This
macro Sub GenDetailsMen(), is what I want to use to call the 14 macros below,
which all populate other sheets with the information held on sheet 3. They
all worked individually, but I get a 400 or 1004 message every time I ty to
use it. Where am I going wrong please.

Thanks



'THIS CALLS MACROS OFF OTHER SHEETS TO CLEAR CONTENTS AND REPOPULATE THE
SHEETS FOR A NEW START'


Sub GenDetailsMen()
ActiveSheet.Unprotect ("sybs")



If MsgBox("You are about to Populate all the EVENT sheets with the names of
the Contestants you have entered on this Sheet. Please carefully check that
all names have been entered as you can not add/delete or change these Names
after confirming. Do you want to proceed?", vbYesNo, "Delete Data") = vbYes
Then
If MsgBox("PLEASE ENSURE YOU HAVE CHECKED THESE ENTRIES CAREFULLY
BEFORE CONTINUING. Do you want to proceed?", vbYesNo, "Generate Details") =
vbYes Then


Call Footpoprowsmen
Call Throwpoprowsmen
Call Speedpoprowsmen
Call ARlist2men
Call copyARcardsdown
Call Worklistmen
Call Worklist2men
Call copyWKcardsdown
Call ITTCCpoprowsmen
Call SPEEDprint
Call Footprint
Call Throwprint
Call Airprint
Call Workprint


ActiveSheet.Protect ("sybs")
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End If
End If
End Sub