If file not not exist clear data

[howard]

I have the following macro below. Where file does not exist, the data to be cleared in active sheet from A19:AA100

Sub DataRefresh()

    Application.DisplayAlerts = False
           
   Range("E14").Select
        Selection.QueryTable.Refresh BackgroundQuery:=True
    Range("G19").Select

       
        Application.DisplayAlerts = True
 

End Sub

The Macro below to clear the data and combined with above macro (possibly a message box could be incorporated and if file does not exits, then range A19:AA100 on active sheet to be cleared)

 Sub Clear_Data ()
Range(A19:AA100).clearcontents
end sub

Your assistance regarding the above is most appreciated

 

[ranman256]

sub Check4File()
if FileExists("c:\folder\myFile.xls") then
   DataRefresh
else
   Clear_Data
endif
end sub


Public Function FileExists(ByVal pvFile) As Boolean
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
FileExists = FSO.FileExists(pvFile)
Set FSO = Nothing
End Function

 

[howard]

Thanks for the help, much appreciated