Skipping Hidden Rows in a Macro

Re. the NumberClients2 macro in my most recent comment below, immediately after the following statement
    Selection.Columns(1).Select
please add the following statement
    If Selection.Cells.Count = 1 Then Exit Sub
The reason for this follows:
The Range.SpecialCells(Type, [Value]) method is supposed to return only the cells in Range that satisfy Type and (optional) Value. But curiously if Range is a SINGLE cell, then ALL worksheet cells satisfying the criteria are returned whenever SOME worksheet cells do not satisfy the criteria. This "bug" does not occur if ALL worksheet cells satisfy the criteria.
Here are three more SpecialCells issues:
1. The method fails silently if it tries to select more than 8,192 non-contiguous cells (or Areas).
2. Use of On Error GoTo might not work as expected; use On Error Resume Next instead.
3. Avoid direct or indirect use of the SpecialCells method in a user-defined function (UDF); see my recent comment here: https://excelribbon.tips.net/T008524_Selecting_Visible_Cells_in_a_Macro.html

Here's another version of the Tip's macro:

Sub NumberClients2()
    Dim c As Range, i As Long, n As Long
    On Error GoTo ErrHandler
    Selection.Columns(1).Select
    Selection.ClearContents
    For Each c In Selection.SpecialCells(xlCellTypeVisible)
        n = n + 1
        c.Value = n
    Next c
    'Clear any hidden cells at start of Selection
    Set c = Selection.Rows(1)
    n = c.Row - 1
    For i = 1 To n 'Skipped if n < 1
        Set c = c.Offset(-1)
        If c.Hidden Then c.ClearContents Else Exit For
    Next i
    'Clear any hidden cells at end of Selection
    Set c = Selection.Rows(Selection.Rows.Count)
    n = c.EntireColumn.Rows.Count - c.Row
    For i = 1 To n 'Skipped if n < 1
        Set c = c.Offset(1)
        If c.Hidden Then c.ClearContents Else Exit For
    Next i
ErrHandler:
End Sub

Before starting the macro, select a range of cells for the active client numbers. After clearing the selection's first column of formulas and values (but not formatting), unhidden rows will be sequentially numbered. As suggested by Alex Blakenburg, "any hidden rows at the start or end of the selection" will also be cleared.

Since we are also clearing previously marked rows that are now potentially hidden, we need to include any hidden rows at the start or end of the selection range. Assuming the table or list has a heading something like the below might work.
Note: An alternative method using Selection.SpecialCells(xlCellTypeLastCell) would suffer a similar issue of missing hidden rows above or below the Selection area.


Sub NumberClients_CurrentRegion()
Dim c As Range
Dim j As Integer
Dim rng As Range

If Selection.Columns.Count > 1 Then
MsgBox "Only select the cells you want numbered"
Exit Sub
End If

Set rng = Intersect(Selection.CurrentRegion, Selection.EntireColumn)
Set rng = rng.Offset(1).Resize(rng.Rows.Count - 1)

j = 0
For Each c In rng
If Not c.Rows.Hidden Then
j = j + 1
c.Value = j
Else
c.Clear ' Could be done on the whole rng at once before entering the for loop
End If
Next c
End Sub