Backup and recover physical and cloud-based servers and workstations, as well as endpoint devices that belong to remote users. Avoid downtime and data loss quickly and easily for Windows-based physical or public cloud-based workloads!
Sub MainRoutine() Dim strDataFile As String strDataFile = OpenFile() End Sub Function OpenFile() As String Dim strFileName Dim wb As Workbook Dim Name2 As String ChDrive "S" ChDir "\_ Log Merch Optimizing\Rich Frazer RTL solutions" strFileName = Application.GetOpenFilename("Excel 2010 Files (*.xlsx),*.xlsx") Debug.Print strFileName If strFileName = "False" Then Exit Function End If Set wb = Workbooks.Open(Filename:=strFileName) OpenFile = ActiveWorkbook.Name Debug.Print Name2 End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.