Break external Links

Hello all,

Hope you are all good.

I have a problem with the following.

Inside a function i have the following code :

Windows(wbkName).Activate
                    For Each WS In ActiveWorkbook.Worksheets
                        With WS
                            On Error Resume Next
                            Set Rng1 = Cells.SpecialCells(xlCellTypeFormulas, 23)
                            On Error GoTo 0
                            If Not Rng1 Is Nothing Then
                                For Each Cell In Rng1
                                    If Left(Cell.Formula, 2) = "='" Then
                                        Cell.Value = Cell.Value
                                    End If
                                Next
                            End If
                            Set Rng1 = Nothing
                        End With
                    Next

The function opens another workbook and then runs this code to change the external links into values. However it does not appear to work.

The function sits in book1.xls and the wookbook it is breaking is wbkname.

Thanks in advance.

My bad i have fixxed this now. was not a problem with this code was a problem somewhere else in he macro.