How to name Excel worksheet based on min-max in column

[Admin]

Hi

Welcome to board !!!

give this a try. In a standard module

Option Explicit

Sub kTest()
    
    Dim WkSht       As Worksheet
    Dim lngMin      As Long
    Dim lngMax      As Long
    
    For Each WkSht In ThisWorkbook.Worksheets
        With WkSht
            lngMin = Application.WorksheetFunction.Min(WkSht.UsedRange.Columns(3))
            lngMax = Application.WorksheetFunction.Max(WkSht.UsedRange.Columns(3))
            If lngMin * lngMax Then
                .Name = Format(lngMin, "yy") & "-" & Format(lngMax, "yy")
            End If
        End With
    Next
    
End Sub