Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
ThisWorkbook.SaveAs ("C:\Documents and Settings\Matt\Desktop\test1.xls")
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim strFileName As String
strFileName = "C:\Documents and Settings\Matt\Desktop\test1.xls"
If Application.AlertBeforeOverwriting = True Then
Application.AlertBeforeOverwriting = False
ThisWorkbook.SaveAs (strFileName)
Application.AlertBeforeOverwriting = True
Else
ThisWorkbook.SaveAs (strFileName)
End If
End Sub