S
SYBS
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
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