I have a textbox on my worksheet and I need a macro that will copy the text on the inside, when I did this manually I recieved the following code.
Sub Macro1()
ActiveSheet.Shapes("Text Box 1198").Select
Selection.Characters.Text = "Rev. June 20, 2008"
With Selection.Characters(Start:=1, Length:=18).Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("AL48").Select
ActiveSheet.Paste
End Sub
This works, but I need to be able to change the text in the textbox and have it print the new text. Right now, if I change the text it always says "Rev. June 20, 2008". I am aware that the code has that listed right in it but I have been working on this problem for awhile and can't find a solution. Does anyone know what I can do?
Thanks
Sub Macro1()
ActiveSheet.Shapes("Text Box 1198").Select
Selection.Characters.Text = "Rev. June 20, 2008"
With Selection.Characters(Start:=1, Length:=18).Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("AL48").Select
ActiveSheet.Paste
End Sub
This works, but I need to be able to change the text in the textbox and have it print the new text. Right now, if I change the text it always says "Rev. June 20, 2008". I am aware that the code has that listed right in it but I have been working on this problem for awhile and can't find a solution. Does anyone know what I can do?
Thanks