I want to get the value of the optionbutton from another workbook
without opening it and let the user choose the workbook.

It works fine when the workbook is open but when it is closed i get
runtime error 9 subscript out of range.


Sub macro1()


begin:
Dim Fname
Dim z, x, c, v As Variant


Dim N As Long
Dim pathname
Dim targetpath
Dim filename
Dim filenametf As Workbook


pathname = ActiveWorkbook.Path


use:
ChDrive [pathname]
ChDir [pathname]


Fname = Application.GetOpenFilename(filefilter:="Excel Files
(*.xls), *.xls")
MsgBox (Fname)
Set filenametf = Workbooks(Dir(Fname))


v = filenametf.Worksheets("sheet1").OptionButton1.Valu e
MsgBox (v)


end sub


Thanks for looking

Not possible, at least not in any conventional way. Why not Link the
optionbutton to a cell, search this ng for ways to read cell values (ie the
linked cell) in a closed workbook.

Regards,
Peter T


"George M" wrote in message
ps.com...
I want to get the value of the optionbutton from another workbook
without opening it and let the user choose the workbook.

It works fine when the workbook is open but when it is closed i get
runtime error 9 subscript out of range.


Sub macro1()


begin:
Dim Fname
Dim z, x, c, v As Variant


Dim N As Long
Dim pathname
Dim targetpath
Dim filename
Dim filenametf As Workbook


pathname = ActiveWorkbook.Path


use:
ChDrive [pathname]
ChDir [pathname]


Fname = Application.GetOpenFilename(filefilter:="Excel Files
(*.xls), *.xls")
MsgBox (Fname)
Set filenametf = Workbooks(Dir(Fname))


v = filenametf.Worksheets("sheet1").OptionButton1.Valu e
MsgBox (v)


end sub


Thanks for looking