Macro help

[zerro]

This macro worked great in Office 2003 but won't work in Office 2010

Compile error
Variable not Defined.
Highlighting cell in below line

For Each Cell In Selection

Can this be fixed.

Thank you.

Sub StripRowDuplicates()
Do Until ActiveCell = ""
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
For Each Cell In Selection
If WorksheetFunction.CountIf(Selection, Cell) > 1 Then
Cell.ClearContents
Else
End If
Next Cell
On Error Resume Next
Selection.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
ActiveCell.Range("A2").Select
Loop
End Sub

 

[Joe4]

Do you have the "Option Explicit" command at the very top of your modules? If so, you need to declare all your variables before using them (which is actually a good programming practice anyway).

So place this line after your "Sub" line and before your "Do" command:

Dim cell as Range

 

[zerro]

Thank you Joe4.
Yes I had Option Explicit on top with another macro.
The macro works fine without it
And also with your code.
Thank you so much.

 

[Joe4]

The thing to remember is if you use the Option Explicit command, you will need to declare all your variables before you use them.

Many programmers do so on purpose, as it can help with error debugging (helps identify typos, variable name changes, etc).