Make Button Visible. HELP PLEASE

[Mister H]

Hi:

I know I have the answer to this somewhere but it eludes me at this time and the boss a is asking for a look at a spreadsheet but I can't get a Command Button to appear when a criteria is met. I get the message:<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o></o>
Method Select of Object Shape failed<o></o>
<o></o>
It is a CommandButton that I have renamed. It is currently invisible on the sheet titled Journal the criteria that I want is in a named range on a sheet titled Deposit Worksheet<o></o>
<o></o>
Here is the code:<o></o>

Sheets("Journal").Select
    
'If the range "EstreatedBail" on the Deposit Worksheet is <> 0 then show
'the button "EstreatedBailItemsButton"
 
    If Sheets("Deposit Worksheet").Range("EstreatedBail").Value <> 0 Then
    ActiveSheet.Shapes("EstreatedBailItemsButton").Select
    EstreatedBailItemsButton.Visible = True
    
Else
     End If

What am I doing wrong? I have tried a couple of things but no luck? Hopefully this is as simple as I

THANKS,
Mark

 

[Gary McMaster]

Method Select of Object Shape failed

I believe what it is trying to tell you is that you can't select something that is invisible. Most of the time you don't have to select cells or other objects to work with them. Please try the sample below (change in red).

Gary

Sheets("Journal").Select
    
'If the range "EstreatedBail" on the Deposit Worksheet is <> 0 then show
'the button "EstreatedBailItemsButton"
 
    If Sheets("Deposit Worksheet").Range("EstreatedBail").Value <> 0 Then
'    ActiveSheet.Shapes("EstreatedBailItemsButton").Select
'    EstreatedBailItemsButton.Visible = True

   [COLOR=Red] ActiveSheet.Shapes("EstreatedBailItemsButton").Visible = True[/COLOR]
    
Else
     End If

 

[Mister H]

Hi Gary:

THANKS for your input. It seems to be working now. I think another problem i was having as I was stepping through the code and I tyhink that casues and error when selecting buttons etc. I implemented your revision and closed excel and then ran the code using the button it was assigned to and all seems well

THANKS Again,
Take Care,
Mark