Error 438 - selection.bug

Hello Guys,

I need your help. I was running my macro without problems (I was using Excel 2013 and now company changed to Excel 365) and I am getting this error 438 on the following line:

Sub add_IFS_data_and_volume()

Dim IFS_row_count, eP_number, Last_row As Long
Dim Sheet_name As String
    
    Application.Calculation = xlCalculationManual
    
    Worksheets("IFS").Select
    On Error Resume Next
    ActiveSheet.ShowAllData
    On Error GoTo 0 ' re-activate error message
    Columns("N:N").Select
    Selection.NumberFormat = "0"

    Worksheets("Overview").Select
    i = Worksheets("Overview").Cells(2, 3).End(xlDown).Row
    
    For j = 3 To i
'        If Cells(j, 3).Value = 28077 Then Selection.bug
        Application.StatusBar = j & "/" & i
        Worksheets("Overview").Select
        Cells(j, 5).Select
        If Cells(j, 48).Value <> 0 And Cells(j, 103).Value = 1 And Cells(j, 5).Hyperlinks.Count > 0 Then
            IFS_row_count = Cells(j, 48).Value
            eP_number = Cells(j, 3)
            Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

 Sheet_name = ActiveSheet.Name
'            If Sheet_name = "28077" Then Selection.bug
            
            If ActiveSheet.Name = "Overview" Then Selection.bug (MISTAKE HERE)
            'delete old IFS value
            For m = 1 To 200

Can you please let me know what I can do to correct this mistake ?

Thank you