Sub EditFile()
' Unhide Row 1
Rows("1:1").Hidden = False
' Expand Column B to a width of 29.00
Columns("B:B").ColumnWidth = 29
' Unfreeze Panels
ActiveWindow.FreezePanes = False
' Delete Rows 1 through 8
Rows("1:8").Delete
' Delete Column A
Column("A:A").Delete
' Delete Columns C, D, E
Columns("C:E").Delete
' Delete Columns G, H, I, J, K, L, M
Columns("G:M").Delete
End Sub
Is what I have entered and it is to auto edit a file for me after I add it to a workbook. I only want one of the sheets edited and This is the error I keep getting.
' Unhide Row 1
Rows("1:1").Hidden = False
' Expand Column B to a width of 29.00
Columns("B:B").ColumnWidth = 29
' Unfreeze Panels
ActiveWindow.FreezePanes = False
' Delete Rows 1 through 8
Rows("1:8").Delete
' Delete Column A
Column("A:A").Delete
' Delete Columns C, D, E
Columns("C:E").Delete
' Delete Columns G, H, I, J, K, L, M
Columns("G:M").Delete
End Sub
Is what I have entered and it is to auto edit a file for me after I add it to a workbook. I only want one of the sheets edited and This is the error I keep getting.