vba code correction

[r@1234]

Sub STEP1()
   Dim Wb1 As Workbook
   Application.ScreenUpdating = False
   Set Wb1 = Workbooks.Open("C:\Users\WolfieeeStyle\Desktop\Files\AlertCodes.xlsx")
   Set Ws1 = Wb1.Worksheets.Item(2)
   With Ws1
      Ws1.Sheets.Cells.Clear
   Wb1.Close True
  
End With

End Sub

i am getting error while clearing all the data in Ws1 i get stuck from this line Ws1.Sheets.Cells.Clear
plz correct the code and help me in solving this problem sir

 

[Fluff13]

Try

Ws1.UsedRange.Clear

 

[Marc L]

Just removing the useless :​

Sub STEP1()
         Application.ScreenUpdating = False
    With Workbooks.Open("C:\Users\WolfieeeStyle\Desktop\Files\AlertCodes.xlsx")
        .Worksheets(2).UsedRange.Clear
        .Close True
    End With
         Application.ScreenUpdating = True
End Sub

Do you like it ? So thanks to click on bottom right Like !​

​

 

[r@1234]

Thnx Alot Fluff13 & Marc L Sir for helping me in solving this problem Sir
Problem Solved
Have a Great Day Sir

 

[Fluff13]

Glad we could help & thanks for the feedback