Cant find project or library
 

hi, havin alittle trouble if any1 can help. A command button on my use
form set headers & footers on worksheets according to textbox entries
On the footer it's required to use 2 lines so i added the comman
&Chr(10) to drop down a line. i know this must be right as did i
manually using Record Macro to get jist of code. When run now though
just get compile error, any ideas ??? copy of code below


Sub Machine_HeadFoot()

' Set Machine List Header\Footer

Worksheets("Machine List").Select
With ActiveSheet.PageSetup
.LeftHeader = "&""Arial,Bold Italic""&12&D"
.CenterHeader = "&""Arial,Bold Italic""&12Machine List"
.RightHeader = "&""Arial,Bold Italic""&12Site: "
Main.SiteBox.Value
.CenterFooter = "&""Arial,Bold Italic""&12Nobles Amusements,
& Main.AddressBox.Text & ", " & Main.TownBox.Text & ", "
Main.CountyBox.Text & ", " & Main.PostBox.Text & Chr(10) & "Tel:"
Main.TelBox.Text & " Fax:" & Main.FaxBox.Text

End With
Seals_HeadFoot
End Su

--
Message posted from http://www.ExcelForum.com

Cant find project or library
 

Are you sure it is the CHR(10) that is giving the compile error. It doesn't
throw one for me.

Break the code down, adding a bit at a time, until you get the error.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Swift2003 " wrote in message
...
hi, havin alittle trouble if any1 can help. A command button on my user
form set headers & footers on worksheets according to textbox entries.
On the footer it's required to use 2 lines so i added the command
&Chr(10) to drop down a line. i know this must be right as did it
manually using Record Macro to get jist of code. When run now though i
just get compile error, any ideas ??? copy of code below


Sub Machine_HeadFoot()

' Set Machine List Header\Footer

Worksheets("Machine List").Select
With ActiveSheet.PageSetup
LeftHeader = "&""Arial,Bold Italic""&12&D"
CenterHeader = "&""Arial,Bold Italic""&12Machine List"
RightHeader = "&""Arial,Bold Italic""&12Site: " &
Main.SiteBox.Value
CenterFooter = "&""Arial,Bold Italic""&12Nobles Amusements, "
& Main.AddressBox.Text & ", " & Main.TownBox.Text & ", " &
Main.CountyBox.Text & ", " & Main.PostBox.Text & Chr(10) & "Tel:" &
Main.TelBox.Text & " Fax:" & Main.FaxBox.Text

End With
Seals_HeadFoot
End Sub


---
Message posted from http://www.ExcelForum.com/