Thanks again for that Michael

It is not quite a follow on from the previous mail but forms part of the
same spreadsheet.

The previous mail was to enable a visual illustration of what was happening.
I did get your correction on changing the lines to show degrees and this
works a treat. I thank you dearly for this.

This part merely wants to calculate the values using formulaand display the
values in cell.

I will have to look at this over the weekend as I have to get out now before
the weather turns.

Have a nice day
C


"michael.beckinsale" wrote in message
...

TiltValue = Range("A1").Value / 6
Theta = (TiltValue / 60 ) * TwoPI

to:

TiltValue = Range("A1").Value
Theta = (TiltValue * (PI/180))

or:

TiltValue = Range("A1").Value / 6
Theta = Radians(TiltValue)

If you look up COS and RADIANS in Excel help you will get explanations
& examples. It saved me having to get out all those geometry books!