An option to either select a file, or choose the active document that is open at the time the macro is run

[RoundRocket]

Hi,
Below is the starting code of a macro in excel 2007 which does a find and replace for a word document. It is currently set up to allow the user to navigate to a file, which works fine...but i would like to be able to give the user the option to either navigate to, or, just use the active document that is open at the time the macro is run. I am not sure how to amend this code, but i'm guessing it would involve a msgbox with a choice, so that the user can click 'yes' to navigate to a file as it is currently set to do, or 'no' to use current open document. Any help /suggestions you could give would be a fantastic help. Thank you, Alex


Sub Button5_Click()
Dim file
file = Application.GetOpenFilename(Title:="Please choose a file to import")

If file = "" Or file = False Then
MsgBox "You must select a file, please try again"
Exit Sub
End If

 

[JoeMo]

Maybe:

Dim ans as long
ans = MsgBox("Use an open file?", vbYesNo)
If ans = vbNo Then
    'GetOpenFilename code
Else
    'Other code
End If
End Sub

 

[RoundRocket]

Thanks very much, will give that a try!

 

[JoeMo]

Thanks very much, will give that a try!

You are welcome - thanks for the reply.

 

[RoundRocket]

This is what i came up with based on the above help, thanks again:

Sub Button5_Click()
Dim file As String
Dim check As Long

check = MsgBox("Would you like to use the open document?", vbYesNo)

If check = vbNo Then
file = Application.GetOpenFilename(Title:="Please choose a file to import")
Else
file = ActiveDocument.path & "\" & ActiveDocument.Name
End If