Code to delete a Line in a another code
 

Hi there

Is there a code to Delete a specific line within a VBA Code or withi
another vba code within the same VBAProject ?


Code
-------------------
Sub ChkFileExists()
Dim fs
Dim StrFileName As String

Set fs = CreateObject("Scripting.FileSystemObject")
StrFileName = "C:\Gaber1314.txt"
If fs.FileExists(StrFileName) Then
MsgBox "File Already exixsts", vbInformation, "Execution interrupted"
Else
MsgBox "File Does Not exixsts", vbCritical, "Execution interrupted"
End If

'*I want to delete this line only, using another code in the same VBAProject
Application.Run "Createtxt"

End Sub
-------------------


i looked at :
Pearson Software Consulting, LLC
Programming To The Visual Basic Editor
http://www.cpearson.com/excel/vbe.htm

but could not find waht i need

--
helmekk

-----------------------------------------------------------------------
helmekki's Profile: http://www.excelforum.com/member.php...nfo&userid=693
View this thread: http://www.excelforum.com/showthread.php?threadid=39370

Code to delete a Line in a another code
 

helmekki,

How about another way around the problem?

In a spare cell (say Z99) put "Run"

Sub ChkFileExists()
"
"
"
"
If Range("Z99").Value = "Run" Then
Application.Run"Createtxt"
End If
"
"
"
End Sub

Elsewhere, where you wanted to delete the line, put

Range("Z99").Value = ""

Now that line will run until you change the value in Cell Z99.
It won't be deleted, but it will never be executed again.

Henry


"helmekki" wrote in
message ...

Hi there

Is there a code to Delete a specific line within a VBA Code or within
another vba code within the same VBAProject ?


Code:
--------------------
Sub ChkFileExists()
Dim fs
Dim StrFileName As String

Set fs = CreateObject("Scripting.FileSystemObject")
StrFileName = "C:\Gaber1314.txt"
If fs.FileExists(StrFileName) Then
MsgBox "File Already exixsts", vbInformation, "Execution interrupted"
Else
MsgBox "File Does Not exixsts", vbCritical, "Execution interrupted"
End If

'*I want to delete this line only, using another code in the same
VBAProject
Application.Run "Createtxt"

End Sub
--------------------


i looked at :
Pearson Software Consulting, LLC
Programming To The Visual Basic Editor
http://www.cpearson.com/excel/vbe.htm

but could not find waht i need.


--
helmekki


------------------------------------------------------------------------
helmekki's Profile:
http://www.excelforum.com/member.php...fo&userid=6939
View this thread: http://www.excelforum.com/showthread...hreadid=393708