working on a selected file via GetOpenFilename
 

Hello, I want to modify the code below to:

1. Allow the user to browse for a file and select a file

2. Perform all the steps in a second function on the selected file i
#1.

Naturally step one has to be completed first after which th
GetDataFromClosedWorkbook() should run.


AT the moment they are both running the same time. I am a newbie at i
Excel VBA so please pardon me if this is really simple :)

Cheers!


Sub test()
Dim F As Variant
F = Application.GetOpenFilename("csv Files (*.csv), *.csv")
If F = False Then Exit Sub
Workbooks.Open F
End Sub

Sub GetDataFromClosedWorkbook()

Dim wb As Workbook
Application.ScreenUpdating = True ' turn off the screen updating
Set wb = Workbooks.Open("C:\Documents and Settings\user\Desktop\Q
Checklists.xls", True, True)
' open the source workbook, read only
With ThisWorkbook.Worksheets("Sheet1")
' read data from the source workbook
.Range("A10").Formula
wb.Worksheets("PM").Range("A10").Formula
' .Range("A11").Formula
wb.Worksheets("SourceSheetName").Range("A20").Form ula

End With
wb.Close False ' close the source workbook without saving an
changes
Set wb = Nothing ' free memory
Application.ScreenUpdating = True ' turn on the screen updating
End Su

--
periro1
-----------------------------------------------------------------------
periro16's Profile: http://www.excelforum.com/member.php...fo&userid=2634
View this thread: http://www.excelforum.com/showthread.php?threadid=46949