Chart vs Sheet distinction

[Filo]

Hello-

I would like a program to run only if the activeworksheet is not a
chartsheet. Can you please help? I basically need something like:

If activeworksheet is a chart then
exit sub
else
....code...
end if


Thank you!

 

[Jim Thomlinson]

One way...

Dim wks As Worksheet

On Error Resume Next
Set wks = ActiveSheet
On Error GoTo 0

If wks Is Nothing Then
MsgBox "ChartSheet"
End If

 

[Jon Peltier]

Or...

If Typename(ActiveSheet) = "Worksheet" Then
' do your stuff
End If

- Jon

 

[DomThePom]

or

Function IsActiveSheetChart() As Boolean
Dim c As Chart

On Error Resume Next
Set c = ActiveWorkbook.Charts(ActiveSheet.Name)
If Err = 0 Then
IsActiveSheetChart = True
Else
IsActiveSheetChart = False
End If
On Error GoTo 0
Set c = Nothing
End Function

 

[Filo]

Thank you All. This was very helpful!!