Optimize code without Select

I have tried to get this code to work without the select, but I can't
This is the code that works:

' Go to TilBeregning sheet and select specific cell
Public Sub GoTilBeregning()

Call StopCalc 'Stop Flickering

    ThisWorkbook.Worksheets("TIL BEREGNING").Select
    ActiveSheet.Range("C6").Select
    ZOOMtoFIT
    
    
Call ResetCalc 'Update Screen
    
End Sub

This is one of the ways I tried without it working

' Go to TilBeregning sheet and select specific cell
Public Sub GoTilBeregning()

Call StopCalc 'Stop Flickering

    With ThisWorkbook.Worksheets("TIL BEREGNING")
    Range("C6").Select
    End With
    ZOOMtoFIT
    
    
Call ResetCalc 'Update Screen
    
End Sub

Is there any way without select ?