C1:C7 Sheets("Page") contain details of the particular job.

I am trying to write a macro to add a Text box on another sheet "Schedule"
to include these details.

Recording a macro of the first few operations, initially typing the text, I
have then attempted to use the variable 'JobDetail' (defined elsewhere and
used throughout the workbook) to replace the text in the recorded macro but
it does not appear in the text box when the macro is run.

Any suggestions for bringing into the text box C1, C2, C3 etc fro the other
sheet?

Thanks in anticipation.

Francis Hookham

Sub JobTextBox()

Sheets("Page").Cells(1, 3) = JobDetail

ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 72.75, 214.5, _

       199.5, 246.75).Select

   Selection.Characters.Text = "Project:" & Chr(10) & JobDetail & Chr(10) &
"Job No:" & Chr(10) & "   00234" & Chr(10) & ""

   With Selection.Characters(Start:=1, Length:=10).Font

       .Name = "Arial"

       .FontStyle = "Bold"

       .Size = 10

       .Strikethrough = False

       .Superscript = False

       .Subscript = False

       .OutlineFont = False

       .Shadow = False

       .Underline = xlUnderlineStyleNone

       .ColorIndex = xlAutomatic

   End With

   With Selection.Font

       .Name = "Arial"

       .FontStyle = "Regular"

       .Size = 12

       .Strikethrough = False

       .Superscript = False

       .Subscript = False

       .OutlineFont = False

       .Shadow = False

       .Underline = xlUnderlineStyleNone

       .ColorIndex = xlAutomatic

   End With

   With Selection.Characters(Start:=31, Length:=8).Font

       .Name = "Arial"

       .FontStyle = "Bold"

       .Size = 10

       .Strikethrough = False

       .Superscript = False

       .Subscript = False

       .OutlineFont = False

       .Shadow = False

       .Underline = xlUnderlineStyleNone

       .ColorIndex = xlAutomatic

   End With

   With Selection.Characters(Start:=39, Length:=9).Font

       .Name = "Arial"

       .FontStyle = "Regular"

       .Size = 12

       .Strikethrough = False

       .Superscript = False

       .Subscript = False

       .OutlineFont = False

       .Shadow = False

       .Underline = xlUnderlineStyleNone

       .ColorIndex = xlAutomatic

   End With

End Sub