Microsoft Office Forums - View Single Post - Array to iterate through variables and trap blank variables

gmayor · 07-31-2015, 08:40 PM

Are you over-thinking this? Clearly your macro does not give the whole picture, but I would have thought

Code:

    Set myCopy = Documents.Add(ActiveDocument.FullName)
    With frmPrint
        On Error Resume Next
        Select Case True
            Case .chk1.Value
                myCopy.Bookmarks("hire").Range.Delete
            Case .chk2.Value
                myCopy.Bookmarks("void").Range.Delete
            Case .chk3.Value
                myCopy.Bookmarks("bright").Range.Delete
            Case .chk4.Value
                myCopy.Bookmarks("load").Range.Delete
        End Select
    End With

simpler?