Getting an run-time error '450'

[croco1]

Hi all,

I'm trying to create a macro to clean up all my different Styles in all sheets of my excel, but I'm getting an error '405' (Wrong number of arguments or invalid property assignment). Not sure what I'm doing wrong... Hopefully someone can help me.

Regards,

Sub Test2()

Dim XWorksheet As Worksheet
Dim XCell As Range
      
   For Each XWorksheet In ThisWorkbook.Worksheets
        For Each XCell In ActiveSheet.Cells
            If XCell.Style = "InputTableHeading 2" Then
                XCell.Style = "InputTableHeading"
            End If
        Next XCell
   Next XWorksheet

End Sub

 

[RoryA]

The only thing I can see wrong with your code (other than the fact it will take a really long time as you are processing every single cell) is that you should be using XWorksheet rather than ActiveSheet in your loop.