Run-time error '13' Type mismatch

[micfoste]

I'm new to VBA and am running some code but getting a runtime error for the following, can anybody help.

Option Explicit
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 14/07/2010 by mfoster
'
Dim ws As Worksheets

For Each ws In Worksheets
Range("A1:C16").Select
Selection.AutoFormat Format:=xlRangeAutoFormatSimple, Number:=True, Font _
:=True, Alignment:=True, Border:=True, Pattern:=True, Width:=True
Range("A1:C15").Select
Charts.Add

ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=ws.Range("A1:C15"), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:=ws.Name '"2002"
Next
End Sub

 

[Joe4]

You have declared ws incorrectly (it is WORKSHEET not WORKSHEETS).

By the way, when looping through sheets, you either need to activate them or include the ws reference in your range reference to make it work properly. Otherwise, you will never move off the current worksheet, i.e.

Dim ws As Worksheet

For Each ws In Worksheets
    ws.Activate
...
Next ws

 

[micfoste]

You have declared ws incorrectly (it is WORKSHEET not WORKSHEETS).

By the way, when looping through sheets, you either need to activate them or include the ws reference in your range reference to make it work properly. Otherwise, you will never move off the current worksheet, i.e.

Dim ws As Worksheet
 
For Each ws In Worksheets
    ws.Activate
...
Next ws

Tks for your help