Try:
Code:
Option Explicit
Dim strPDF As String, strTXT As String
Sub Refresh()
strPDF = "ThisWorkbook.Path & "\" & "ProductCatalog.pdf"
strTXT = Split(strPDF, ".pdf")(0) & ".txt"
If Dir(strPDF) <> "" Then Kill strPDF
If Dir(strTXT) <> "" Then Kill strTXT
Call DownloadFile
Call Convert_PDF_To_Text_File
Call UpdatePrices
End Sub
Having defined strPDF and strTXT this way, you don't need to redefine those references later on - you can simply reference the existing ones.