clear the data

[Legacy 450108]

my file name is 1.xlsx and sheet name can be anything
vba will be placed in a macro.xlsm
code has to open the file and clear all the data in column B and save and close the file

 

[Yongle]

Sub ClearColumnB()
    Application.ScreenUpdating = False
    Dim wS As Worksheet
    
    With Workbooks.Open("C:\Folder\SubFolder\1.xlsx")
        For Each wS In .Worksheets
            wS.Columns(2).Resize(wS.Rows.Count - 1).Offset(1).ClearContents
        Next wS
        .Close True
    End With
    
End Sub

Above assumes data starts at row 2

 

[Legacy 450108]

Thnx Alot Sir for giving ur Precious time and Great Support to this post
Have a Great Day Sir