VBA - Format Zip Code for BookMark

[SpeedyFingers]

Please help. I keep getting the "Else without If" Error and not sure how this code works.

For Each oBookMark In oDoc.Bookmarks
        Set objX = wsData.Rows(1).Find(oBookMark.Name, LookIn:=xlValues, lookat:=xlWhole)
        If Not objX Is Nothing Then
            Select Case oBookMark
                Case "NetToServicer", "PurchasePrice", "MaxCommission", "JrLien", _
                    "HOALiens", "Repairs", "Termite", "RelocationAmount", "CashContribution", _
                    "CertifiedFunds", "PromissoryNote", "ClosingCost", "ClosingCost2", "TotalIndebtedness", "TotalIndebtedness2", _
                    "PromissoryNote2", "PromissoryNote3", "CashContribution2", "CashContribution3", "RelocationAmount2500", "RelocationAmount3000", "RelocationAmount2", _
                    "RelocationAmount30002", "RelocationAmount30003", "RelocationAmount30004", "NetToServicer2", "RelocationAmount30005", "ClosingCost3", "ClosingCost4", _
                    "ClosingCost5", "PromissoryNote4", "CashContribution5", "CashContribution5", "JrLien2", "HOAFee"
                    Dim thiz
                    'MsgBox oBookMark.Range.Text
                    thiz = Format(wsData.Cells(rng2.Row, objX.Column), "$#,##0.00")
                    'MsgBox thiz
                    'MsgBox (oBookMark.Range.Text = Format(wsData.Cells(rng2.Row, objX.Column), "$#,##0.00"))
                    oBookMark.Range.Text = thiz
                Case Else
            Select Case oBookMark
                Case "PropertyZip", "MailingAddressZip"
                    Dim zip
                    'MsgBox oBookMark.Range.Text
                    zip = Format(wsData.Cells(rng2.Row, objX.Column), "0000")
                    'MsgBox zip
                    'MsgBox (oBookMark.Range.Text = Format(wsData.Cells(rng2.Row, objX.Column), "0000"))
                    oBookMark.Range.Text = zip
                Case Else
                    oBookMark.Range.Text = wsData.Cells(rng2.Row, objX.Column)
                End Select
        Else
            MsgBox "Bookmark '" & oBookMark.Name & "' not found", vbOKOnly + vbCritical, "error"
            GoTo Tidy_Exit
        End If
    Next oBookMark

 

[aaalviny]

Add "End Select" before the 2nd "Select Case oBookMark"

 

[SpeedyFingers]

Yes. I got it. Thank you very much!