Worksheet_calculation event

[pigster]

Hi,

I am using the following Worksheet_calculation event to place a picture on top of Cell F1 and hiding the formular.

I have copied the formular and now want to add another Worksheet_calculation event to place a picture on top of Cell F4 and hiding the formular.

How do i add another Worksheet_calculation event?

Private Sub Worksheet_Calculate()
Dim oPic As Picture
Me.Pictures.Visible = False
With Range("F1")
For Each oPic In Me.Pictures
If oPic.Name = .Text Then
oPic.Visible = True
oPic.Top = .Top
oPic.Left = .Left
Exit For
End If
Next oPic
End With
End Sub

 

[Andrew Poulsom]

You need to add your new code to the existing event procedure. You can't have more than one.

 

[pigster]

Hi,

I copied the VBA from someone else, do you know what i would need to change

 

[Andrew Poulsom]

Try:

Private Sub Worksheet_Calculate()
    Dim oPic As Picture
    Me.Pictures.Visible = False
    With Range("F1")
        For Each oPic In Me.Pictures
            If oPic.Name = .Text Then
                oPic.Visible = True
                oPic.Top = .Top
                oPic.Left = .Left
                Exit For
            End If
        Next oPic
    End With
    With Range("F4")
        For Each oPic In Me.Pictures
            If oPic.Name = .Text Then
                oPic.Visible = True
                oPic.Top = .Top
                oPic.Left = .Left
                Exit For
            End If
        Next oPic
    End With
End Sub

 

[pram]

Even i have the same problem , does this piece of code work ? it is not working for me

 

[Andrew Poulsom]

In what way isn't it working?