"Run application" based on condition...

[J.W. Aldridge]

Hi.

Is there a way to add a condition before running an application?

For example, using the workbook open code below, I want to run the
application (hide_sheets) only IF applicable (only if the sheets are
hidden), otherwise bypass the command and do not give me a runtime
error.



Private Sub Workbook_Open()

Application.Run "'PCP DATA & PRODUCTION.xls'!hide_sheets"

MsgBox "Hello, welcome to PCP Data & Production" & Format(Date,
"ddd d mmm yyyy")

End Sub



///////////Actual application///////////



Sub hide_sheets()
'
' hide_sheets Macro
'

'
Sheets(Array("ROSTER", "TIMESHEET", "PRODUCTION", "INFO
SHEET")).Select
ActiveWindow.SelectedSheets.Visible = False
End Sub

 

[Limey]

Hi.

Is there a way to add a condition before running an application?

For example, using the workbook open code below, I want to run the
application (hide_sheets) only IF applicable (only if the sheets are
hidden), otherwise bypass the command and do not give me a runtime
error.

Private Sub Workbook_Open()

Application.Run "'PCP DATA & PRODUCTION.xls'!hide_sheets"

MsgBox "Hello, welcome to PCP Data & Production" & Format(Date,
"ddd d mmm yyyy")

End Sub

///////////Actual application///////////

Sub hide_sheets()
'
' hide_sheets Macro
'

'
Sheets(Array("ROSTER", "TIMESHEET", "PRODUCTION", "INFO
SHEET")).Select
ActiveWindow.SelectedSheets.Visible = False
End Sub

Hi,

can't you just use an error trap?

On Error Resume Next
'statements here
on error goto 0

 

[J.W. Aldridge]

Thanx...

Wasnt aware of that but I'll try installing that (although I am not
too familiar with that command - will play around with it until I get
it).

 

[J.W. Aldridge]

Ok... Been lookin everywhere for something to help me understand how
to work this code... Not sure. If someone can help me figure out where
to insert this and make it functional, I promise I will figure it out
from there.


On Error Resume Next
'statements here
on error goto 0


Private Sub Workbook_Open()
Application.Run "'PCP DATA & PRODUCTION.xls'!hide_sheets"
MsgBox "Hello, welcome to PCP Data & Production" & Format(Date,
"ddd d mmm yyyy")
End Sub



Thanx

 

[Guest]

Private Sub Workbook_Open()
On Error Resume Next
Application.Run "'PCP DATA & PRODUCTION.xls'!hide_sheets"
On Error goto 0
MsgBox "Hello, welcome to PCP Data & Production" & Format(Date,
"ddd d mmm yyyy")
End Sub

 

[Limey]

Ok... Been lookin everywhere for something to help me understand how
to work this code... Not sure. If someone can help me figure out where
to insert this and make it functional, I promise I will figure it out
from there.

On Error Resume Next
'statements here
on error goto 0

Private Sub Workbook_Open()
Application.Run "'PCP DATA & PRODUCTION.xls'!hide_sheets"
MsgBox "Hello, welcome to PCP Data & Production" & Format(Date,
"ddd d mmm yyyy")
End Sub

Thanx

Hi mate,

sorry early in the morning, I should have been clearer.

Private Sub Workbook_Open()

on Error Goto skipit

Application.Run "'PCP DATA & PRODUCTION.xls'!hide_sheets"
MsgBox "Hello, welcome to PCP Data & Production" & Format(Date,
"ddd d mmm yyyy")

skipit:
End Sub

Note the On Error line with a GoTo, and then the Skipit: at the
bottom. Basically if an error is thrown, the lext line to be activated
is skipit:

Goto's aren't something you should use a lot, but I don't know there
is a choice here.

Cheers