Finding each cell where a style is used

[Graham.Johnson]

Hello,
I am trying to find each location where a style is used and SELECTIVELY replace that style (one by one, manually) with another style.
I am not trying to replace all usages of one style with another style, blindly.
Is that possible?
Many thanks.
Keith

 

[Yongle]

here is some vba to tell you which cells are a certain style
run from the sheet containing the styles you want to change and when the input box appears enter the name of the style to be listed

Sub ListCells()
    Dim Cel As Range, Rng As Range, Ws As Worksheet, r As Long, myStyle As String
    Set Rng = ActiveSheet.UsedRange
    myStyle = UCase(InputBox("Enter style name", "?", "accent2"))
    With Sheets.Add
        For Each Cel In Rng
            If UCase(Cel.Style) = myStyle Then
                r = r + 1
                .Cells(r, 1).Resize(, 2) = Array(Cel.Address(0, 0), Cel.Style)
            End If
        Next Cel
    End With
End Sub