TryingToLearn
Well-known Member
- Joined
- Sep 10, 2003
- Messages
- 733
The problem now is there are no missing references. It doesn't even bring up that window, just comes up with the compile error about can't find project or library and highlights the the word left as noted below.
Code:
'===Select Range============================================================================================================
If RangeHasPivotTable(ActiveSheet.UsedRange) Then
blnPt = True
On Error Resume Next
With ActiveSheet.PivotTables(1)
Set rngSelection = Range(.TableRange2.Address)
.PivotSelect "", xlLabelOnly
Set rngPtLabel = Selection
End With
Err.Clear
On Error GoTo 0
On Error GoTo Errline
Else
reInput:
On Error Resume Next
***********************************************************
Set rngSelection = Application.InputBox(strMsg1, Left(strMsg2, 46), Selection.Address, Type:=8) ^^^
*************************************************************
If rngSelection Is Nothing Then Exit Sub
Err.Clear
On Error GoTo 0
On Error GoTo Errline