got a stray colon in there

With Workbooks("Book1.xls").Worksheets(1)
.Columns(1).Numberformat = "0000"
End With


--
Regards,
Tom Ogilvy

"Gbiwan" wrote in message
...
Thanks for getting back to me so quickly!
I copied the line into my macro but I get a
Compile error:
Expected:end of statement

What do I need to do next to fix this?

Sorry that I'm not making it easier for you...

Greg

"Tom Ogilvy" wrote in message
...
With Workbooks("Book1.xls").Worksheets(1)
.Columns(1).Numberformat:="0000"
End With

--
regards,
Tom Ogilvy


"Gbiwan" wrote in message
...
HI!

You've helped out by showing me how to use array to copy 2 sheets to a
new
file and name that new file... the next problem I need help with is I
need
to copy the formats as well... and not the links to the new file...
(Actually all I really need to do is format Column "A" to 0000)

I remember seeing info on something like this but I can't seem to find
it...
I can do the copy formats on a normal copy/paste but it seems to lose
something in the translation when I try to use the same approach with
this
array part of my macro...

Or is there a way to format column "A" before naming and saving the
new
workbook?

sorry to be such a pain... but 35 restaurants will be pretty happy if
I
ever
get this project completed...

Greg