Adjust VBA to close file after opening

[ItalianPlatinum]

Hello,
I have a VBA that will open a file based off of only certain criteria being met. the only ask or modification i'm looking for is how do I leverage the existing VBA to just close the file when its done.

Sub OpenCopy()
Dim sPath As String
Dim sPartial As String
Dim sFName As String

sPath = "C:\" ' <<<<< change accordingly

sPartial = "AAA_" & Year(Now) & IIf(Len(Month(Now)) = 1, "0" & Month(Now), Month(Now)) & IIf(Len(Day(Now)) = 1, "0" & Day(Now), Day(Now)) & "*.txt"
sFName = Dir(sPath & sPartial)
If Len(sFName) > 0 Then
Workbooks.OpenText sPath & sFName
Else
MsgBox "File not found.", vbExclamation
End If
End Sub

Thanks,

 

[ItalianPlatinum]

Hi Fluff. you are always so helpful. So the vba is pretty lengthy so i wont copy it all in here, but how it works is

sub process - VBA doing a lot of other stuff
sub opencopy - inserted this sub into sub process
sub process - VBA doing a lot of other stuff

so i guess i could break up the vba so the open copy is the full vba? or could i create an opencopy2 with the above to just close that same file opened by opencopy? so ends up like this

sub process - VBA doing a lot of other stuff
sub opencopy - inserted this sub into sub process
sub opencopy2 - NEW to close file?
sub process - VBA doing a lot of other stuff

i also, came across Workbooks(2).Close

 

[Fluff]

You can put it all in one sub.

 

[ItalianPlatinum]

Thanks will work on combining it all together. appreciate the help. thanks fluff have a wonderful weekend

 

[Fluff]

You're welcome & thanks for the feedback.