We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Sub OpenSectionNameTxt() Dim txt As String Dim ff As Integer Dim fName As String ff = FreeFile fName = gMyPath & "\Section.txt" Open fName For Input As #ff Input #ff, txt Close #ff Debug.Print txt End Sub
How to correct this ?
Sub SaveSectionName() Dim sFileText As String Dim fName As String Dim fNu As Integer Dim txt As String fName = gMyPath & "\Section.txt" txt = txtDescription 'textbox contents fNu = FreeFile Open fName For Output As #fNu Print #fNu, txt Close #fNu End Sub
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.