Find cell and enter value on other worksheet without using select or activate?

[bergen]

I would like to use the name of activesheet to enter in data on other sheet on corresponding name, but without selecting or activating that sheet.

I have a working formula below, but is there anyway to avoid selecting the other sheet?

Sub mark()
    Dim findx As String
    findx  = ActiveSheet.Name
    
    
        Sheets("Overblik").Select
        Set C = Cells.Find(What:=findx, After:=ActiveCell, LookIn:=xlFormulas, _
                LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                MatchCase:=False, SearchFormat:=False)
        C.Offset(0, 1).Interior.color = 6


End Sub

 

[Akuini]

Try this:

Sub mark()
    Dim findx As String
    findx = ActiveSheet.name
    
        Set c = sheets("Overblik").Cells.Find(What:=findx, After:=ActiveCell, LookIn:=xlFormulas, _
                LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                MatchCase:=False, SearchFormat:=False)
        c.Offset(0, 1).Interior.Color = 6

End Sub