Change "Do Until"

[tallguy6354]

Hi Guys,

I have a Macro that finds in Column F duplicates and adds an Alpha Character (A-Z) to the last right position in the filed.(1-12 Alpha/Numeric) .

It's set to check all rows until a specific number of rows are reached. The current code does this until intCount and intRow equals 1500. The number of rows vary in each file.

Can anyone help in revising this code to do until the first blank in Column D.
Here is the part of the Macro that performs the above:

Please Login or Register  to view this content.

Thank you in advance

[royUK]

I can't test this

Please Login or Register  to view this content.

[tallguy6354]

Thanks for the help. When i replace your macro code with mine I get an error at (DupNo) in SubFix Dups.

I have tried to attach my xls file to enable you to test your fix.

[royUK]

See if this works

Please Login or Register  to view this content.

[royUK]

This might be neater as well

Please Login or Register  to view this content.

[tallguy6354]

Thank you,

Works fine now.

[shg]

Or ...

Please Login or Register  to view this content.