Dim Cell. no "as"

[lezawang]

Hi
I would appreciate if you can help me understand the code below
1) What does Dim Cell mean? why "as" was omitted
2) What does "&gt" do here?
3) Is these easier implementation of similar code? Thank you.

Sub Highlight_Duplicates(Values As Range)
Dim Cell
 
For Each Cell In Values
    If WorksheetFunction.CountIf(Values, Cell.Value) > 1 Then
        Cell.Interior.ColorIndex = 6
    End If
 
Next Cell
End Sub

https://www.automateexcel.com/vba/highlight-duplicates-in-range/

 

[shg]

You don't need to pass any arguments if you apply the code to the current selection:

Sub Highlight_Duplicates(Values As Range)
  Dim cell As Range

  For Each cell In ActiveSheet.RangeSelection.Cells
    '...
  Next cell
End Sub

 

[RoryA]

You'll have to type it into the macro name box like this:

’Highlight_Duplicates "A1:B10"’

Note this won't work if your file is in xlsb format.

 

[Marcelo Branco]

This worked for me using the original code: Values as Range

Alt+F8

'Highlight_Duplicates(Evaluate("A1:B10"))'

M.

 

[Marcelo Branco]

Another way

G1
A1:B10

Alt+F8
'Highlight_Duplicates(Evaluate("INDIRECT(G1)"))'

M.