Merging VBA

[iluvfnky]

Hi,

I need to merge these two to run under the same code but i'm not sure...

Private Sub Worksheet_Calculate()
Dim oPic As Picture
Me.Pictures.Visible = False
With Range("A6")
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


And

Private Sub Worksheet_Calculate()
With Range("I3")
ActiveSheet.Shapes("LINEG").Visible = IIf(Len(.Value) = 0 Or .Value = 0, False, True)
End With
End Sub

Anyone help? Many Thanks...

 

[Domenic]

Try...

[font=Verdana][color=darkblue]Option[/color] [color=darkblue]Explicit[/color]

[color=darkblue]Private[/color] [color=darkblue]Sub[/color] Worksheet_Calculate()
    [color=darkblue]Dim[/color] oPic [color=darkblue]As[/color] Picture
    Me.Pictures.Visible = [color=darkblue]False[/color]
    [color=darkblue]With[/color] Range("A6")
        [color=darkblue]For[/color] [color=darkblue]Each[/color] oPic [color=darkblue]In[/color] Me.Pictures
            [color=darkblue]If[/color] oPic.Name = .Text [color=darkblue]Then[/color]
                oPic.Visible = [color=darkblue]True[/color]
                oPic.Top = .Top
                oPic.Left = .Left
                [color=darkblue]Exit[/color] [color=darkblue]For[/color]
            [color=darkblue]End[/color] [color=darkblue]If[/color]
        [color=darkblue]Next[/color] oPic
    [color=darkblue]End[/color] [color=darkblue]With[/color]
    [color=darkblue]With[/color] Range("I3")
        Me.Shapes("LINEG").Visible = IIf(Len(.Value) = 0 [color=darkblue]Or[/color] .Value = 0, [color=darkblue]False[/color], [color=darkblue]True[/color])
    [color=darkblue]End[/color] With
End [color=darkblue]Sub[/color]
[/font]

 

[iluvfnky]

Easy when you know how, Thank you so much...

 

[Domenic]

You're very welcome! Thanks for the feedback!