resize xlsx output with vba

[cmccabe]

The below VB is almost complete but when the xlsx is saved to the directory, I need to resize and then remove B1:B12. I added these lines in hopes of doing that but I am getting a Select method of range class failed. Thank you .

Please Login or Register  to view this content.

Please Login or Register  to view this content.

[JLGWhiz]

You are inside a With statement, so your cells and range references need a period in front of them to tie them to the object. But maybe this would work in place of what you are trying:

Please Login or Register  to view this content.

although I am not sure why you are using autofit at that juncture.

[cmccabe]

The VB below is almost done except that it outputs to the directory as the current shows in the attachment and not in the desired way also in the attachment. My attempts are not working and I need some help in getting this to work. Also, the rows in the outline can be variable (sometimes 5 and other times 15. Thank you .

VB

Please Login or Register  to view this content.

[JLGWhiz]

I think I see the problem now. Try replacing this

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=fp & .Name, _
FileFormat:=xlOpenXMLWorkbook
.Columns.AutoFit
.Range("B1:B12").ClearContents
ActiveWorkbook.Close False

With this

Please Login or Register  to view this content.

[cmccabe]

Thank you very much.... it works great .

[JLGWhiz]

Thank you very much.... it works great .

You're Welcome,
Regards, JLG