> > I need to open another file, which I like this
> > Workbooks.Open ("C:\test\somefile.xls")
> > - Is there a way that I can prompt for the filename?
> Look at GetOpenFilename in VBA Help

Thanks that worked


> > The I copy data from that into my document. Like this
> > Workbooks(1).Sheets(1).Cells(i, j) =
> > Workbooks(2).Sheets(1).Cells(i, j)
> > Workbooks(1).Sheets(1).Cells(i, j).Font.Bold =
> > Workbooks(2).Sheets(1).Cells(i, j).Font.Bold
> > - How can I copy the widths of the cells, and the border (if any)?
> Workbooks(1).Sheets(1).Cells(i, j).Copy
> Workbooks(2).Sheets(1).Cells(i, j).Paste PasteSpecial:=xlPasteAll

It works,, but I resizes all the cells into something odd, even the
height changes. Besides it does not look good when working.
I found this to work, but I still need to get the coloumn widths
correctly.
Workbooks(2).Sheets(1).Range("a1:h31").Copy
(Workbooks(1).Sheets(1).Range("a1"))

BESIDES, I'd like to know:

1) how can I delete an entire row (e.g. 16)?

2) how do I know the size of my sheet? For some H is the last one used,
for others I or L. There must be a function for this.

3) is there a way to move an entire coloumn, or insert one? Or to
delete one (same as row I asume)?

BR
Sonnich