runtime error 424 Object Required

I get the runtime error 424 Object Required message when I run the vba code below. To insert this code I right clicked the worksheet "Results" in workbook "DoubleElimResults.xlsm". I'm trying to activate the workbook "DoubleElimDrawSheet.xlsm" but get the error when the line - "Workbooks(“DoubleElimDrawSheet.xlsm”).Activate" is reached. I can put the activate command in a regular macro and it works fine but I need to have it in this code so I can change background colors on the draw sheet when a cell in the target range changes. This is just the initial vba code to get it working and I will have well over 150 cells to manipulate which is cumbersome to set up using conditional formatting.

Here is the code and I'm attaching the two workbooks plus a third which isn't part of the problem but is referenced in formulas.

 Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range

    ' The variable KeyCells contains the cells that will
    ' cause an alert when they are changed.
    Set KeyCells = Range("B18:B34")
    Dim MatchID As String
    Dim MatchPos As String
    

    
    
    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then
        If Target.Address = "$B$18" Then
           If Range("C18").Value = "U" _
           Or Range("C18").Value = "L" Then
              MatchID = "W17"
              MatchPos = Range("C2").Value
              Workbooks(“DoubleElimDrawSheet.xlsm”).Activate
              Sheets(“Brackets”).Select
              If MatchPos = "U" And Range("J1") = "Y" Then
                 Range("P70").Interior.Color = RGB(255, 255, 0)
                 Range("I70").Interior.Color = RGB(146, 208, 80)
              Else
                 Range("I70").Interior.Color = RGB(102, 255, 51)
                 Range("I70").Interior.Color = RGB(146, 208, 80)
              End If
           End If
        End If


         Windows("DoubleElimResults.xlsm").Activate
    End If
End Sub

Thanks for any help resolving this error.

CK76,

Both workbooks are in the same directory. I tried your suggestion but I get an error message: "Sorry, We couldn't find "DoubleElimDrawSheet.xlsm". Is it possible it was moved, renamed or deleted?"

Both workbooks are open before the code is invoked. Also, I put the set wb code in a named macro and the same thing occurred. I also looked at the directory and copied the workbook name from the
directory list and then did a find in the macro and it matched perfectly. The temp macro code is named "TEMP3" in "DoubleElimResults.xlsm", which was attached in my orig. post.

Thanks much for your help

Hmm, your code runs fine on my system.

Or with following modification.

        If Target.Address = "$B$18" Then
           If Range("C18").Value = "U" _
           Or Range("C18").Value = "L" Then
              MatchID = "W17"
              MatchPos = Range("C2").Value
              With Workbooks("DoubleElimDrawSheet.xlsm").Sheets("Brackets")
              If MatchPos = "U" And .Range("J1") = "Y" Then
                 .Range("P1").Interior.Color = RGB(255, 255, 0)
                 .Range("I2").Interior.Color = RGB(146, 208, 80)
              Else
                 .Range("I2").Interior.Color = RGB(102, 255, 51)
                 .Range("P2").Interior.Color = RGB(146, 208, 80)
              End If
              End With
           End If
        End If

I have to leave my workplace and will be gone for several hours. I will try your code tomorrow morning.

CK76,

Thanks so much for the solution. I used your code above and it works perfectly!!

You are welcome and thanks for the rep

Hi CK76,

I just want to let you know the current situation. I replied to you that I was re-opening this thread, due to runtime error 424 which you can see in my reply to you below. No need to look for a solution as I have found a way around it.

Basically I run a macro from the vba code in the Results worksheet - the macro being submitted is in the DoubleElimDrawSheet.xlsm workbook and I can update with less complexity.

Thank you again for your help.