E
Eric
The following code is stored under specific worksheet, whenever the worksheet
is opened, firstly it will update all links and do all the calculation for
each cells. For the given code, it requires to manually press F2 and enter
to update and trigger the rest of coding. However, the value within cell A1
is calculated by formula, without manually pressing F2 and Enter within cell
A1, the rest of coding will not be performed without triggering cell A1, so
does anyone have any suggestions on how to trigger the rest of coding without
manually update the A1 cell's value?
Thank everyone very much for any suggestions
Eric
Private Sub Worksheet_Activate()
Application.EnableEvents = False
Dim myPic1 As Object
Dim myPic2 As Object
Dim myPic3 As Object
Dim dblTop As Double
Dim dblLeft As Double
Dim dblHeight As Double
Dim dblWidth As Double
With Me.Range("A1")
If .Value = 1 Then
On Error Resume Next
Set myPic1 = ActiveSheet.Pictures("PicAtB10")
Set myPic2 = ActiveSheet.Pictures("PicAtE10")
Set myPic3 = ActiveSheet.Pictures("PicAtH10")
On Error GoTo 0
If Not myPic1 Is Nothing Then myPic1.Delete
If Not myPic2 Is Nothing Then myPic2.Delete
If Not myPic3 Is Nothing Then myPic3.Delete
....
is opened, firstly it will update all links and do all the calculation for
each cells. For the given code, it requires to manually press F2 and enter
to update and trigger the rest of coding. However, the value within cell A1
is calculated by formula, without manually pressing F2 and Enter within cell
A1, the rest of coding will not be performed without triggering cell A1, so
does anyone have any suggestions on how to trigger the rest of coding without
manually update the A1 cell's value?
Thank everyone very much for any suggestions
Eric
Private Sub Worksheet_Activate()
Application.EnableEvents = False
Dim myPic1 As Object
Dim myPic2 As Object
Dim myPic3 As Object
Dim dblTop As Double
Dim dblLeft As Double
Dim dblHeight As Double
Dim dblWidth As Double
With Me.Range("A1")
If .Value = 1 Then
On Error Resume Next
Set myPic1 = ActiveSheet.Pictures("PicAtB10")
Set myPic2 = ActiveSheet.Pictures("PicAtE10")
Set myPic3 = ActiveSheet.Pictures("PicAtH10")
On Error GoTo 0
If Not myPic1 Is Nothing Then myPic1.Delete
If Not myPic2 Is Nothing Then myPic2.Delete
If Not myPic3 Is Nothing Then myPic3.Delete
....