Replace a lot of cells by something shorter

[Hyakkivn]

Dim ws As Worksheet, cell As Range
Set ws = ActiveSheet
Set nd = ws.Range("B10:B30")
For Each cell In nd
If cell.Value = ws.Range("L10") Or cell.Value = ws.Range("L11") Or cell.Value = ws.Range("L12") Or cell.Value = ws.Range("L13") Or cell.Value = ws.Range("L14") Or cell.Value = ws.Range("L15") Or cell.Value = ws.Range("L16") Or cell.Value = ws.Range("L17") _
Or cell.Value = ws.Range("L18") Or cell.Value = ws.Range("L19") Or cell.Value = ws.Range("L20") Or cell.Value = ws.Range("L21") Or cell.Value = ws.Range("L22") Or cell.Value = ws.Range("L23") _
Or cell.Value = ws.Range("L24") Or cell.Value = ws.Range("L25") Or cell.Value = ws.Range("L26") Or cell.Value = ws.Range("L27") Or cell.Value = ws.Range("L28") Or cell.Value = ws.Range("L29") _
Or cell.Value = ws.Range("L30") Or cell.Value = ws.Range("L31") Or cell.Value = ws.Range("L32") Or cell.Value = ws.Range("L33") Then
    cells(cell.Row, 7).NumberFormat = "#,##0.00"
    Else
    cells(cell.Row, 7).NumberFormat = "General"
End If

Above is my code for auto formating base on cell value, and it works. I have a question: Is there any way to replace those "L" Cells with something shorter like

ws.range("L" & i) for i = 10 to 33

 

[RoryA]

You could use:

If application.countif(ws.range("L10:L33"), cell.value) > 0 then

 

[Hyakkivn]

You could use:

If application.countif(ws.range("L10:L33"), cell.value) > 0 then

Thank you for fast reply. That's more brilliant way. You are such a big help !!!

 

[RoryA]

Glad we could help.