Cannot find cell borders using vba

I'm trying to get a macro working in excel 2007 that works fine in 2003. the macro needs to find all cells with a double line border. The code to do this in 2003 was

Range("Data").Activate
        
        ' Set up formatting for "Find"
        Application.FindFormat.Clear
        
        With Application.FindFormat.Borders(xlLeft)
            .LineStyle = xlDouble
            .Weight = xlThick
            .ColorIndex = 1
        End With
        
       With Application.FindFormat.Borders(xlRight)
            .LineStyle = xlDouble
            .Weight = xlThick
            .ColorIndex = 1
        End With
            
        ' aRange is a found enterable cell
        Set aRange = Range("Data").Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
            :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
            False, SearchFormat:=True)

This worked but in 2007 the returned range is nothing. I have recorded a macro to find with the border I have in 2007 and have made some changes to the macro because some of the cell properties are different when viewed in 2007. My code now looks like

Range("Data").Activate
        
        ' Set up formatting for "Find"
        Application.FindFormat.Clear
        
         With Application.FindFormat.Borders(xlLeft)

        .LineStyle = xlDouble

        .ColorIndex = xlAutomatic

        .TintAndShade = 0

        .Weight = xlThick

    End With

    With Application.FindFormat.Borders(xlRight)

        .LineStyle = xlDouble

        .ColorIndex = xlAutomatic

        .TintAndShade = 0

        .Weight = xlThick

    End With


            
        ' aRange is a found enterable cell
        Set aRange = Range("Data").Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
            :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
            False, SearchFormat:=True)

This does not return any range. I can though make the find work in 2007 by looking for the fill colour of a cell - but not the borders. Also the macro that I recorded will not work either - ie it will not find the cell even though it works while I am recording it. Any help on this would be gratefully received...

please see attached file

Andy - thanks a lot it works fine now - how on earth did you work out where the edge top had to go??

How would I adapt that to detect the border style and then change the weight from xDouble to xContinuous for an entire worksheet?

I'm wanting to incorporate that function into a loop I have already written that goes through an entire workbook making various formatting changes to each of the worksheets.

My problem stems from the border style being xDouble, which is an eyesore to our admin department and unfortunately I cannot change how I receive the excel file. So I have written various macros to fix the problems that have arisen but cannot for the life of me figure out the border problem.

If you could push me in the right direction i'd be much appreciated! As this is the first forum i've found with a partial solution available. I only need to adapt it a bit to make it work in my case.

Thanks in advance.

Tim

Just found a workable solution. Thought you might like to see how I did it!

This will circulate through the active sheet and adjust the border style based on your preference.

Sub FixBorders()
For Each h In ActiveSheet.UsedRange.Cells
For i = 5 To 10
If h.Borders(i).Weight <> xlThin Then _
h.Borders(i).Weight = xlThin
Next
Next
End Sub