Hi,
I created some combo box's to control some pivot tables on another sheet for a dashboard I am building. It worked just fine but then I opened it today and kept getting VB error messages. The code still executes if I click continue on the error window. NOTHING has changed to the file. If i click debug, sometimes simply "end sub" is highlighted, other times its something else, other times, i get no error at all. Can an expert take a look at this for me, im baffled. I've pasted the code and attached the file. Thanks so much
Sub weekly_select_region()
'
' weekly_select_region Macro
' selects the region from the weekly pivot table
'
'
Sheets("Weekly Pivots").Select
ActiveSheet.PivotTables("Weekly Quote Production Pivot").PivotFields("Region").CurrentPage _
= Range("N2").Text
ActiveSheet.PivotTables("Weekly Re-Quote Production Pivot").PivotFields("Region").CurrentPage _
= Range("N2").Text
Range("D1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub
Sub weekly_select_segment()
'
' weekly_select_segment Macro
' selects the segment from the weekly pivot table
'
'
Sheets("Weekly Pivots").Select
ActiveSheet.PivotTables("Weekly Quote Production Pivot").PivotFields("Segment"). _
CurrentPage = Range("O2").Text
ActiveSheet.PivotTables("Weekly Re-Quote Production Pivot").PivotFields("Segment"). _
CurrentPage = Range("O2").Text
Range("D1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub
Bookmarks