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 ?
Bookmarks