Hi!

This may be a fool question, but I need the right answer :)

I have these procedures in a userform called "Importing" wich gives m
the location of some file, with the route,name of file and sheet
need, like this:

Private Sub cmdSearchSource_Click()
Dim V As Variant
V = Application.GetOpenFilename("Excel files,*.xls", _
1, "Select source file", , False)
If (Left(V, 3) < "Fal") Then
FileLocate.Text = V
FileName.Text = Right(V, Len(V) - 71)
End If
End Sub

Private Sub SheetName_Change()
Dim Sheet As String
Sheet = SheetName
End Sub


and have an other in a module called "OpenSaveClose" like this:

Sub OpenFile()
Workbooks.Open (V)
'here sentence to copy "Sheet from opened workbook to the workbook I a
working in called "oldworkbook"

End Sub

So I need to call Sub OpenFile from userform "Importing"

Thanks

--
Message posted from http://www.ExcelForum.com