Excel - why doesn't this work?

[TheFIDDLER]

Anyone tell me why the following code acts the way it does.

I have a form that holds my print routines. The following code is stored in the form.

shortened version of my code...
[Highlight=VB]

If optA.Value = True Then Set RngSelectedPrint = Sheets("One").Range("A1:k100")
If optB.Value = True Then Set RngSelectedPrint = Sheets("Two").Range("A1", Range("a1").End(xlDown).End(xlToRight))
RngSelectedPrint.Preview ' or RngSelectedPrint.PrintOut
[Highlight=VB]

I do have two option buttons on my form, one called optA, the other called optB.

Problem is not the code doesn't word - it does. It just doesn't work consistently.
From sheet One - I can select option A. Option B gives me a run time error #1004. Code never makes it past the if optB line.

From sheet Two - I can select both options. They both work.

Now, if optB didn't work at all, I would understand it. If my reference works once, why does it not work irrelevant of the sheet from which the form is called.

[RobDog888]

It sounds like sheet two is not initialized or something and that
may be why when printing from sheet two the code works
because sheet one is displayed first. Its not until sheet two is
selected that the controls get initialized or set.

Test this out after the workbook is opened by clicking on sheet
two and back to sheet one and then print. If your code works
then what I presented above is true.

Also, changing your code to something like this may help.

If optA.Value = True Then
    Set RngSelectedPrint = Sheets("One").Range("A1:k100")
Else
    Set RngSelectedPrint = Sheets("Two").Range("A1", Range("a1").End(xlDown).End(xlToRight))
Endif
RngSelectedPrint.Preview ' or RngSelectedPrint.PrintOut

[amer7862000]

try this:

If optA.Value = True Then
    Set RngSelectedPrint = Sheets("One").Range("A1:k100")
Else
    Set RngSelectedPrint = Sheets("Two").Range("A1", Range("a1").End(xlDown).End(xlToRight))
Endif
RngSelectedPrint.PrintPreview

[TheFIDDLER]

I think the problem lies with the xldown and xltoright parameters.

I moved the code around, accessing sheet two prior to sheet one and still get the same error. It does not seem to let me use the xldown, xltoright parameters unless the form was launched from that particular sheet.

And since this is a form, I can't use code like sheet(1).select since my focus is no longer on the workbook, but rather in the form itself.

Any other suggestions/?