Hi Cathy,

Assuming cell A1 contains the value that you want to 'tilt' the shape
something like this should work:

Sub TiltShape()
' SetTruPointer Macro
Dim TiltValue As Integer
TiltValue = Worksheets("sheet1").Range("A1")
ActiveSheet.Shapes("Line 41").Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = TiltValue & "#"
End Sub

You will probably want to enter some sore of error checking (ie if
statment)

Regards

Michael