I have a simple macro to show custom views that are launched by a combo box.
It works fine on my computer, but crashes sporadically on other people's
machines in the office. We work on a shared network drive. Any ideas?
Here's my code:
Private Sub Markets_Change()
Dim varView As String
View = ActiveSheet.Range("b2")
ActiveWorkbook.CustomViews(View).Show
End Sub

Hi Gary,

What error message do other users encounter and,
on error, which line of code is highlighted?

By the way, I would change:

View = ActiveSheet.Range("b2")

to

View = ActiveSheet.Range("b2").Value

or, if the ComboBox is from the Controls Toolbox,

View = Me.Range("B2")

Additionally - though I assume that it is a typo:

ActiveWorkbook.CustomViews(View).Show

should probably be

ActiveWorkbook.CustomViews( varView ).Show


---
Regards,
Norman


"gary_wyman" wrote in message
...
I have a simple macro to show custom views that are launched by a combo
box.
It works fine on my computer, but crashes sporadically on other people's
machines in the office. We work on a shared network drive. Any ideas?
Here's my code:
Private Sub Markets_Change()
Dim varView As String
View = ActiveSheet.Range("b2")
ActiveWorkbook.CustomViews(View).Show
End Sub

Private Sub Markets_Change()
Dim varView As String
'If varView is string shouldn't view be
varView = ActiveSheet.Range("b2")
'View = ActiveSheet.Range("b2")
ActiveWorkbook.CustomViews(View).Show
End Sub

"gary_wyman" wrote:

I have a simple macro to show custom views that are launched by a combo box.
It works fine on my computer, but crashes sporadically on other people's
machines in the office. We work on a shared network drive. Any ideas?
Here's my code:
Private Sub Markets_Change()
Dim varView As String
View = ActiveSheet.Range("b2")
ActiveWorkbook.CustomViews(View).Show
End Sub

Gary,
It would be a good idea to read about 'Option Explicit" in the Help.

Hint: varView < View

NickHK

"gary_wyman" wrote in message
...
I have a simple macro to show custom views that are launched by a combo
box.
It works fine on my computer, but crashes sporadically on other people's
machines in the office. We work on a shared network drive. Any ideas?
Here's my code:
Private Sub Markets_Change()
Dim varView As String
View = ActiveSheet.Range("b2")
ActiveWorkbook.CustomViews(View).Show
End Sub

Thanks, but the changes didn't work. Still crashes at least every other time
it is run. Hangs up on ActiveWorkbook.CustomViews(View).Show with an error
code 5.

"Mike" wrote:

Private Sub Markets_Change()
Dim varView As String
'If varView is string shouldn't view be
varView = ActiveSheet.Range("b2")
'View = ActiveSheet.Range("b2")
ActiveWorkbook.CustomViews(View).Show
End Sub

"gary_wyman" wrote:

I have a simple macro to show custom views that are launched by a combo box.
It works fine on my computer, but crashes sporadically on other people's
machines in the office. We work on a shared network drive. Any ideas?
Here's my code:
Private Sub Markets_Change()
Dim varView As String
View = ActiveSheet.Range("b2")
ActiveWorkbook.CustomViews(View).Show
End Sub

The use of Me.Range ("b2") didn't work either. It caused Excel to crash.
The macro is hanging up on ActiveWorkbook.CustomViews(View).Show with an
error code 5. It seems to happen every other attempt to launch the macro.

I did try using a text box with the macro assigned and the varView
suggestion and that seems to work. Don't understand why.

Thanks for your help as I am new to vba.

"Norman Jones" wrote:

Hi Gary,

What error message do other users encounter and,
on error, which line of code is highlighted?

By the way, I would change:

View = ActiveSheet.Range("b2")

to

View = ActiveSheet.Range("b2").Value

or, if the ComboBox is from the Controls Toolbox,

View = Me.Range("B2")

Additionally - though I assume that it is a typo:

ActiveWorkbook.CustomViews(View).Show

should probably be

ActiveWorkbook.CustomViews( varView ).Show


---
Regards,
Norman


"gary_wyman" wrote in message
...
I have a simple macro to show custom views that are launched by a combo
box.
It works fine on my computer, but crashes sporadically on other people's
machines in the office. We work on a shared network drive. Any ideas?
Here's my code:
Private Sub Markets_Change()
Dim varView As String
View = ActiveSheet.Range("b2")
ActiveWorkbook.CustomViews(View).Show
End Sub