Importing text into a Text Box

[Francis Hookham]

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

 

[Guest]

You can CONCATENATE c1:c7 into a helper cell, say A1 and then in the TEXT box
call =Page!A1

hth
Vaya con Dios,
Chuck, CABGx3

 

[Francis Hookham]

Thanks - sounds good - I'll try that

Francis

You can CONCATENATE c1:c7 into a helper cell, say A1 and then in the TEXT
box
call =Page!A1

hth
Vaya con Dios,
Chuck, CABGx3