clear all the data

[Legacy 451409]

vba is placed in a seperate file macro.xlsm
my file name sample1.xlsx
we have to open the file by vba and clear all the data of sheet1 and save and close the file
all files are loacted in same place

 

[Fluff]

How about

Sub andy124()
   Dim Wb As Workbook
   Application.ScreenUpdating = False
   Set Wb = Workbooks.Open(ThisWorkbook.Path & "\sample1.xlsx")
   Wb.Sheets("Sheet1").Cells.Clear
   Wb.Close True
End Sub

 

[Legacy 451409]

Thnx Fluff Sir for giving ur precious time and Great Support to this post
Have a Great Day Sir

 

[Fluff]

You're welcome & thanks for the feedback