Macro to hide empty columns

[Jenaustin29]

I'm trying to add to my macro. Can you help me hid columns that c3through S3 = "-"
It's changes for customers so I cant sat hide N-S. The code I was give is not working.

'Hide empty columns from end
Dim i As Long, rng As Range
Set rng = Range("C3:S3")
For i = rng.Cells.Count To 1 Step -1
If rng.Item(i).Value = "-" Then
Columns(rng.Item(i).Column).Hidden = True
Else
Exit For
End If
Next

 

[Jenaustin29]

I'm trying to add to my macro. Can you help me hid columns that c3through S3 = "-"
It's changes for customers so I cant sat hide N-S. The code I was give is not working.
*** just the ones on the end are to be hidden if L3 was a - I don't want that hidden ****

'Hide empty columns from end
Dim i As Long, rng As Range
Set rng = Range("C3:S3")
For i = rng.Cells.Count To 1 Step -1
If rng.Item(i).Value = "-" Then
Columns(rng.Item(i).Column).Hidden = True
Else
Exit For
End If
Next

View attachment 100240

*** just the ones on the end are to be hidden if L3 was a - I don't want that hidden ****

 

[rlv01]

Maybe something like this.

    'Hide empty columns in defined range
    Dim i As Long, rng As Range, rngHide As Range, R As Range
    
    Set rng = Range("C3:S3")

    For Each R In rng
        If R.Value = "-" Then
            If rngHide Is Nothing Then
                Set rngHide = R
            Else
                Set rngHide = Application.Union(rngHide, R)
            End If
        End If
    Next R
    
    If Not rngHide Is Nothing Then
        rngHide.EntireColumn.Hidden = True
    End If