hi
just after workbooks.add insert this:
Range("A2:M73:).interior.colorindex = 1 'black
:)
-----Original Message-----
I wish to make make the background colour of all cells
black prior to paste
of an invoice details. I code upto now is as below but I
need to add the
background colur and then wish to close the workbook with
code

Range("A2:M73").Select
Selection.Copy
Workbooks.Add
Range("A2").Select
Selection.PasteSpecial Paste:=xlValues,
Operation:=xlNone,
SkipBlanks:=False _
, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats,
Operation:=xlNone,
SkipBlanks:=False _
, Transpose:=False

Application.CutCopyMode = False
Filesavename = Application.GetSaveAsFilename( _
fileFilter:="Excel Files (*.xls), *.xls")

If Filesavename < False Then
ActiveSheet.SaveAs Filename:=Filesavename,
FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False

End If

End Sub
.