Forum Discussion

JKPieterse's avatar
JKPieterse
Silver Contributor
Mar 17, 2025

Re: Select cells

You could use a small VBA routine:

Sub FindaStyle()
    Dim oSh As Worksheet
    Dim oCell As Range
    For Each oSh In ThisWorkbook.Worksheets
        For Each oCell In oSh.UsedRange.Cells
            If oCell.Style Like "*demo*" Then
                Application.GoTo oCell
                Stop
            End If
        Next
    Next
End Sub

Taken from my website article on styles: https://jkp-ads.com/articles/styles.aspx 

No RepliesBe the first to reply

Resources