Hightlight_named_range except name Print_Area

[vietnguyen1211a]

i edit that , but its not run correctly , someone can help me? please

Sub hightlight_named_range()
Dim Print_Area As Name
Dim RangeName As Name
Dim SelectedRange As Range

On Error Resume Next
For Each RangeName In ActiveWorkbook.Names

If RangeName <> Print_Area Then
Set SelectedRange = RangeName.RefersToRange
SelectedRange.Interior.ColorIndex = 20
End If

Next RangeName
End Sub

 

[kevin9999]

Please try the following on a copy of your workbook. Run the macro with the correct sheet active.

Option Explicit
Sub RangeColor()
    Dim nm, s As String
    Dim wb As Workbook
    Set wb = ActiveWorkbook
    For Each nm In wb.Names
        If InStr(1, nm.Name, "Print_Area") = False Then
            s = nm.Name
            ActiveSheet.Range(s).Interior.ColorIndex = 20
        End If
    Next nm
End Sub

 

[kevin9999]

In case you have additional named ranges in the workbook (other than in the active sheet), we better include an error handler:

Option Explicit
Sub RangeColor()
    Dim nm, s As String
    Dim wb As Workbook
    Set wb = ActiveWorkbook
    For Each nm In wb.Names
        If InStr(1, nm.Name, "Print_Area") = False Then
            s = nm.Name
            On Error Resume Next
            ActiveSheet.Range(s).Interior.ColorIndex = 20
            On Error GoTo 0
        End If
    Next nm
End Sub

 

[vietnguyen1211a]

Thank you !

 

[kevin9999]

Happy to help, and welcome to the forum