Conquering VBA Copy Sheet & autofit Columns after paste

[emack1230]

Good evening all,
I have my vba code triggering off 2 different validation lists on our main tab, based on validation selection the vba will copy a job qualification tab from a different workbook and paste it into our new hire workbook as a new tab. Everything works but I can't seem to get the autofit column string to work. Here is the copy paste vba code. Is this where I put the columnwidth? Thanks in advance.

Sub OpenWorkbook()

Dim wb As Workbook, bk As Workbook

Set bk = Workbooks("Hybrid packet.xlsm") 'assumed open


Set wb = Workbooks.Open("originating workbook") 'you would need the full address and name of workbook


wb.Worksheets("BAGGER OPERATOR").Range("A1:I500").Copy bk.Worksheets("Job Qualification 1").Range("A1")


wb.Close SaveChanges:=True

End Sub

 

[kevin9999]

Before the end of the above sub (and assuming it's the "Job Qualification 1" sheet you want it applied to) try this:

bk.Worksheets("Job Qualification 1").UsedRange.EntireColumn.AutoFit