Run another macro from within this macro
Thank you for all the help so far.
I was wondering about the 100 macros, how are they all differing?
I have probably done this wrong. Each macro is an angle, in fact I have 360
of them
They are used to change the ange of a line with an arror in it. I could not
figure out another way to do this.
Perhaps you might know of a better way.
**** Example (currently working) ****
Sub SetTruPointer()
' SetTruPointer Macro
Dim myMacCell As Range
Set myMacCell = Worksheets("sheet1").Range("D1")
If 1 = 1 Then
Application.Run myMacCell.Value
Else
Beep
End If
End Sub
Sub Angle1()
' Angle1 Macro
ActiveSheet.Shapes("Line 41").Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 1#
End Sub
Sub Angle2()
' Angle2 Macro
ActiveSheet.Shapes("Line 41").Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 2#
End Sub
***********
TIA
C
|