delete columns

[hendrikbez]

I am trying to delete columns from one of my sheets, but cannot get it to delete, I have tried with sheet6 and insert(sheet name)

I have put a button on sheet5 t5o delete columns on sheet6(Insert), but it is not working

Sub Del_columns()
 Dim sourceSheet As Worksheet
 Set sourceSheet = Sheet6
 sourceSheet.Columns("H:Z").EntireColumn.Delete
 End Sub

Sub Del_columns()
 Dim sourceSheet As Worksheet
 Set sourceSheet = Insert
 sourceSheet.Columns("H:Z").EntireColumn.Delete
 End Sub

 

[hendrikbez]

Yes I did assign it to the macro

 

[hendrikbez]

I got it to work, I did make a mistake in one words spelling

 

[Fluff]

Ok, what happens if you try this

Sub Del_columns()
    MsgBox Evaluate("isref(Insert!A1)")
    Sheet6.Range("H:Z").EntireColumn.Delete
End Sub

Do you get the message box, and what does it say?

 

[Fluff]

Glad you sorted it & thanks for the feedback

 

[hendrikbez]

Thank you Fluff and my answer is this, it is woking