With...

[Forestq]

Hi,

I want to delete one column.

Generaly It could be done like:

Columns("AY:AY").Select
Selection.Delete Shift:=xlToLeft

But how to do it in "With...."

With sourceWb.Sheets("Sheet1")
    .Range("A1:B6").EntireRow.Delete
       
    LastRow = .Range("CW65536").End(xlUp).Row
   '....delete coulmn AY here

End With

 

[VoG]

Try

.Columns("AY").Delete

 

[Peter_SSs]

Try

With sourceWb.Sheets("Sheet1")
    .Columns("AY").Delete
End With

 

[Forestq]

works,
thank you!

 

[pgc01]

With sourceWb.Sheets("Sheet1")
       
    LastRow = .Range("CW65536").End(xlUp).Row

End With

Hi

This statement is not portable. The number of rows in a column in excel depends on the excel version.

It's better:

With sourceWb.Sheets("Sheet1")
       
    LastRow = .Range("CW" & .Rows.Count).End(xlUp).Row

End With

This will work ok for any version.

 

[Forestq]

yes I know,
but in my case I know that the number of rows always will be less then < 5000.

thank you anyway!