Clear Text "finalised" from sheets BR1 to BR15

[howard]

I have tried to write code to clear txt "Finalised" from sheets BR1 to Br15

I get a run time error "Object doesn't support this property or method" and code below is highlighted

 For I = Sheets("BR1").index  To Worksheets("BR15")

Sub ClearText_Finalised()
Dim I As Long
For I = Sheets("BR1").index To Worksheets("BR15")
With Worksheets(I)
.Range("B5:M5").SpecialCells(xlCellTypeConstants, xlTextValues).ClearContents
End With
Next I
End Sub

it would be appreciated if someone could amend my code

 

[Joe4]

Does this do what you want?

Sub ClearText_Finalised()

    Dim ws As Worksheet
    For Each ws In Worksheets
        If Left(ws.Name, 2) = "BR" Then
            ws.Range("B5:M5").SpecialCells(xlCellTypeConstants, xlTextValues).ClearContents
        End If
    Next ws

End Sub

If not, please tell us exactly what is in these cells, and if you want to clear ALL of the range, or just cells meeting certain criteria.

 

[howard]

Thanks for the help-code works perfectly

 

[Joe4]

You are welcome.