One way:

Option Explicit
Sub testme()

Dim wks As Worksheet

Set wks = ActiveSheet

If wks.PivotTables.Count 0 Then
MsgBox "yep"
Else
MsgBox "nope"
End If

End Sub



Shell wrote:

How can I tell in code, I the current tab contains a pivot table.

Actually, I need the code for Access, But if I can see the code in an Excel
Macro I can translate it to Access VBA. (Hopefully)

Thanks
--
Shell

--

Dave Peterson