Re: Importing text into a Text Box

Thanks - sounds good - I'll try that

Francis

"CLR" <CLR@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:B3A2C18E-2D15-4D07-928C-CD8CF0837D0A@xxxxxxxxxxxxxxxx
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" wrote:

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



I am trying to write a macro to add a Text box on another ***
"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
***?



Thanks in anticipation.



Francis Hookham



Sub JobTextBox()

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

Active***.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





.

Loading