Sub Step5()
Dim del_fld(1 To 26) As String
del_fld(1) = "Record Type"
del_fld(2) = "Record indicator"
del_fld(3) = "Middle Initial"
del_fld(4) = "Patient Middle Initial"
del_fld(5) = "Carrier Number"
del_fld(6) = "Other Coverage Code"
del_fld(7) = "Service Provider ID Qualifier"
del_fld(8) = "Service Provider ID"
del_fld(9) = "Prescriber ID Qualifier"
del_fld(10) = "Processor Payment Clarification Code"
del_fld(11) = "D.0 RX Number"
del_fld(12) = "RX Number Qualifier"
del_fld(13) = "Maintenance Drug indicator"
del_fld(14) = "Amount of Coinsurance"
del_fld(15) = "Amount Attributed to Product Selection"
del_fld(16) = "Ingredient Cost Submitted"
del_fld(17) = "Flat Sales Tax Amount Paid"
del_fld(18) = "Percentage Sales Tax Amount Paid"
del_fld(19) = "Mail Incentive Fee"
del_fld(20) = "Accumulated Deductible Amount"
del_fld(21) = "Invoiced Amount (PAFF Amount)"
del_fld(22) = "General Purpose 3 / Group Extension Code"
del_fld(23) = "Specialty Rx Claim"
del_fld(24) = "Pharmacy/Medical Indicator"
del_fld(25) = "Drug Admin Fee Type Code"
del_fld(26) = "Maintenance Choice Indicator"
Dim i As Long
For i = 1 To 26
ActiveWorkbook.ActiveSheet.Columns(Range("1:1").Find(""" & del_fld(i) & """, LookIn:=xlValues)).Delete
Next i
End Sub
This macro is supposed to delete the columns with first row values = "Record Type", "Record indicator", ...etc.
I'm getting mismatch error.
Bookmarks