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" <(E-Mail Removed)> wrote in message
news:1B3EF8AD-3FCA-463B-9175-(E-Mail Removed)...
>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
>
|
Similar Threads
