Easy VBA help needed

[Pinter]

This is a very basic VBA problem, Im sure. I just dont know that much about it yet.

I have a macro written that opens a file which you select, cuts a certain range of values from it, and pastes them into the current file. How do I get the macro to close the file after its done cutting and pasting? Thanks in advance.

Pinter

 

[phantom1975]

Care to post your macro?

 

[Pinter]

Sure. Here it is. Thanks!


Private Sub cmdBrowse1_Click()
'use the common open dialog to get a filename
cmnd.InitDir = "c:\"
cmnd.Filter = "xls (*.xls)|*.xls"
cmnd.ShowOpen

'set the file name
txtFileName = cmnd.FileTitle

txtFileName1 = txtFileName & ".Regulated"

Workbooks.Open txtFileName
Sheets(2).Select
Sheets(2).Range("A1:BB200").Select
Selection.Copy
ThisWorkbook.Sheets(2).Activate
Sheets(2).Range("A1:BB200").Select
ActiveSheet.Paste
Application.CutCopyMode = False

Workbooks.Open txtFileName
Sheets(3).Select
Sheets(3).Range("A1:BB200").Select
Selection.Copy
ThisWorkbook.Sheets(3).Activate
Sheets(3).Range("A1:BB200").Select
ActiveSheet.Paste


Application.CutCopyMode = False
ThisWorkbook.Sheets(1).Activate
MsgBox ("Please select file of case 2.")
End Sub

 

[phantom1975]

I think you are looking for this:

Workbooks(txtFileName).Close

 

[Pinter]

Yep. I knew it was something very simple like that. Thanks.