macro to execute change of shape size

[cjcass]

Hi,
I currently have the code below placed into a wksheet that changes the size of an arrow when the value (from a formula) in cell B13 automatically changes.
I would like to be in control of when to execute this routine using a command button / macro at any time that will simply just change the arrow size based on B13's value.
What would the code be to achieve this? many thanks.

Private Sub Worksheet_Calculate()
If Range("B13").Value > 0 Then
Shapes("YourselfArrow").Height = Range("B13").Value
End If
End Sub

 

[JackDanIce]

Put this part of the code into a separate macro and then attach that macro to a button on the sheet:

If Range("B13").Value > 0 Then
   Shapes("YourselfArrow").Height = Range("B13").Value
End If

 

[cjcass]

Hi,
I tried that and it gave me an error as follows:
'Sub or Function not defined' with the word 'Shapes' highlighted

 

[JackDanIce]

Try:

If Range("B13").Value > 0 Then
   ActiveSheet.Shapes("YourselfArrow").Height = Range("B13").Value
End If

 

[cjcass]

Brilliant! tha works great
Thanks very much indeed

 

[JackDanIce]

You're welcome!