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 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
>
>
>
|
Similar Threads
