Originally Posted by
:) Sixthsense :)
Private Sub Workbook_Open()
Sub Calculate_range()
End Sub
Rather:
Private Sub Workbook_Open()
Call Calculate_range
End Sub
If you would like to use an older type of code (Auto_Open) that runs when the workbook is opened, like this (in standard module, eg. Module1):
Sub auto_open()
Call Calculate_range
End Sub
Sub Calculate_range()
Range("k8").Calculate
Application.OnTime DateAdd("s", 1, Now), "Calculate_range"
End Sub
When you have more than one sheet in the workbook (and also when you have only one), you should indicate in which sheet you want to recalculate cell K8:
Sub Calculate_range()
Worksheets("Sheet Name Here").Range("K8").Calculate
Application.OnTime DateAdd("s", 1, Now), "Calculate_range"
End Sub
Artik
Bookmarks