If you ever wondered how to determine, if an opened workbook was saved before below you'll find a code snippet that might do the job for you.

'@Author - Alexander Bolte 
'@ChangeDate - 2014-05-30 
'@Description - Returns true, if a workbooks path property 
'is unequal an empty string. 
'This is true only if the workbook has been saved. 
'@Param wrk - an initialized Excel Workbook object. Function fails, if Nothing is handed. 
'@Returns true, if a given workbook has been saved. Else False.
Public Function wasWorkbookEverSaved(ByRef wrk As Workbook) As Boolean
  Dim ret As Boolean
  
  ret = wrk.path <> ""
  
  wasWorkbookEverSaved = ret
End Function

Last Updated: 19 August 2015

Hits: 5725

If you have to get the last column in an Excel worksheet, the following method can assist since you cannot rely on the UsedRange of Excel.

Why can't you rely on the UsedRange? Read below on how to get the last row in an Excel worksheet.

Determining last row with data in an Excel Worksheet

Source Code

Last Updated: 19 August 2015

Hits: 5401

Below function displays a file picker dialog and returns the picked file path as String.

Source Code

' @Author - Alexander Bolte
' @ChangeDate - 2014-10-09
' @Description - Displaying a Windows explorer standard file picker dialog to user and returning picked file path as String.
' @Returns - A String holding a full file path. If user aborted file picker dialog the returned String is empty("").
Public Function getSingleFilePath() As String
    Dim myFileDialog As FileDialog
    Dim filePath As String
    
    ' Search for file.
    Set myFileDialog = Application.FileDialog(msoFileDialogFilePicker)
    myFileDialog.InitialView = msoFileDialogViewDetails
    
    ' Prompt dialog to user.
    If myFileDialog.Show = -1 Then
        filePath = myFileDialog.SelectedItems.Item(1)
    End If
    
    getSingleFilePath = filePath
End Function

Last Updated: 09 October 2014

Hits: 5581