MsgBox will freeze program when running script more than once

[adutchbrew]

Hi,
I am pretty new to Excel vba. I have run into an error I haven't found any resolution for.
When I run the script, the message box will pop up and provide me the info. I click OK and it closes.
But when I run it again, it pops up again, but then the code box as well as MS Excel is frozen.
I have to force close Excel through task manager to exit.
Here is the code I have:

Sub FileName ()

' This is a way to get the file name in a messagebox
' After clicking OK, the messagebox should close
' The filename should not show the file extension

Dim FileName As String
FileName = ThisWorkbook.Name
FileName = Left(FileName, Len(FileName)-5)

'Variable declaration
Dim Output as Integer

'Example vbOKOnly
Output = MsgBox ("The name of this file is " & FileName, vbOKOnly, "Get file name")

End Sub

What am I doing wrong?
Thanks for any help

Adutchbrew

[TMS]

Nothing wrong with it as far as I can see. I've run it several times without issue.


Regards, TMS

[Norie]

Same here, but I would suggest you don't use Filename for the name of the sub and the name of a variable in the sub.

[adutchbrew]

Thank you TMS.
Not sure what happened. I went back and tried it again and now it works without problem. Don't think I made any revisions compared to before.

[adutchbrew]

Thank you for response Norie.
Not sure what happened before, but when I run it now, I don't have any issues running the code. Even without making your recommended adjustments.

[TMS]

No problem, Excel can be temperamental from time to time.


Anyway, you're welcome. Thanks for the rep.



If you are satisfied with the solution(s) provided, please mark your thread as Solved.


New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

Or you can use this way:

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save


You may also want to consider thanking those people who helped you by clicking on the little star at the bottom left of their reply to your question.