Go To Sheet and find range

[RLJ]

I need code that will take the

1. Active sheet name user is currently on
2. Go To Sheet "Event Matrix"
3. On Sheet "Event Matrix" scroll through column "B" to find the cell with the user's active sheet name and make that the active cell.

Example: I'm on Sheet "Default" and I need to go to Sheet "Event Matrix" and scroll the sheet to where the cell value in Column "B" equals "Default" which was the sheet that I came from.

Thank you for your help. I'm working on a pretty big project for a process at work.

 

[mumps]

Try:

Sub FindCell()
    Application.ScreenUpdating = False
    Dim srcWS As Worksheet
    Set srcWS = ActiveSheet
    With Sheets("Event Matrix")
        .Activate
        .Range("B" & .Range("B:B").Find(srcWS.Name).Row).Select
    End With
    Application.ScreenUpdating = True
End Sub

 

[RLJ]

Thank you. It worked perfectly when removing the screen updating. With it set to false, it would not scroll the sheet to the cell.

 

[MARK858]

Maybe just

Sub Findit()
   Application.Goto Sheets("Event Matrix").Range("B:B").Find(ActiveSheet.Name), True
End Sub

 

[RLJ]

Thank you for the code. Now I would like to append the code so that a user can have the sheet scroll to and select the range. I have tried appending the code to the below and the Evnt value is sowing in the code as I step through it but I keep getting an error.

Sub FindEvent()
    Dim Evnt As String
    Evnt = Range("C2").Value
    With ActiveSheet
        .Range("B" & .Range("B:B").Find(Evnt).row).Select
    End With
End Sub