Delete A .xlsm File With Variables

[TkdKidSnake]

Hi all,

I am trying to come up with some code to delete a file in a location that I know exists as the file creates this before the need to delete the file, the filename is created and is store in cell i1 - see the code I have below unfortunetely I keep getting an error. If anyone can help it would be greatly appreciated.

Sub KillXLSM()

Application.DisplayAlerts = False

Dim usrnme As String

'Get username
usrnme = Environ("username")

Sheets("123").Visible = True
Sheets("123").Select

    ActiveSheet.Unprotect
            
Dim myFolderName As String
    Dim myFileName As String
    
'   Build folder name
    myFolderName = Environ("userprofile") & "\Desktop\123 Submission Docs\"


'   Build file name
    myFileName = Range("i1") & ".xlsm"
    

    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False

ActiveWindow.SelectedSheets.Visible = False

'   Kill file
    Kill FileName:=myFolderName & myFileName

Application.DisplayAlerts = True

End Sub

Any help can provide would be greatly appreciated.

Regards
Steve

 

[RoryA]

What is the error, on which line does it occur, and have you verified the correct values are in your variables?

 

[TkdKidSnake]

What is the error, on which line does it occur, and have you verified the correct values are in your variables?

Hi,

I have just solved it - I will post below.

 

[TkdKidSnake]

Solved

Sub KillXLSM()

Application.DisplayAlerts = False

Dim usrnme1 As String

'Get username
usrnme1 = Environ("username")

Sheets("321").Visible = True
Sheets("321").Select
   
Dim myFolderName1 As String
    Dim myFileName1 As String
   
'   Build folder name
                                  myFolderName1 = Environ("userprofile") & "\Desktop\123\"

'   Build file name
                                  myFileName1 = myFolderName1 & Range("i1") & ".xlsm"

ActiveWindow.SelectedSheets.Visible = False

Sheets("987").Select

'   Kill file
                                   Kill (myFileName1

Application.DisplayAlerts = True


End Sub