microsoft visual basic for applications error 400

MsgBox 'PageBreaksSheetRowNumbers missing on 5005-PageBreaks sheet (Workbook Scope)' If Not NameExists_Workbook('PageBreaksSheetRowNumbers') Then MsgBox 'PageBreaks5005Reference missing on 5005-PageBreaks sheet (Workbook Scope)' If Not NameExists_Workbook('PageBreaks5005Reference') Then

MsgBox 'PageBreaksActiveSheetSetup missing on 5005-PageBreaks sheet (Worksheet Scope)' If Not NameExists_ActiveSheet('PageBreaksActiveSheetSetup') Then 'CHECK TO SEE IF NECESSARY RANGE NAMES exist, if not setup Sheets(strPageBreaksSheetName).PageSetup.PaperSize = intPaperSize Sheets(strPageBreaksSheetName).PageSetup.Orientation = intOrientation Sheets(strPageBreaksSheetName).PageSetup.Zoom = vrZoom 'Reset print parameters after page breaks reset IntOrientation = 1 ' 1= Portrait, 2 = LandscapeīlnSourceSheetVisibleStatus = ActiveSheet.VisibleīlnSourceSheetProtectStatus = ActiveSheet.ProtectContentsĪctiveSheet.Unprotect Password:=strPasswordġ00 Answer = MsgBox('Do you want to proceed with resetting all page breaks on active sheet?', vbOKCancel) IntPaperSize = 1 ' 1 = Letter, 17 = 11x17

StrReferenceSheetName = '5005-PageBreaks' StrPageBreaksSheetName = ActiveSheet.Name 'TURN OFF FEATURES TO SPEED UP MACRO PROCESSING: I didn't bother including code for any of the other called macros since they don't seem to be the problem.Īny suggestions would be welcome. You will note in the code below, where the macro bombs out. Problem: I have a macro that is getting to a certain line of code then encountering an Error 400 ('Form Already Displayed Can't Show Modally' don't really understand what this error is).

Microsoft visual basic for applications error 400