Is there any way to amend this code so that it checks all sheets except the
sheet named Holidays


Private Sub testdelete()

'Clears Picture when changing the Year

'Application.ScreenUpdating = False

For n = 1 To Sheets.Count
With Sheets(n)
Set myPict = Nothing
On Error Resume Next
Set myPict = .Pictures("New Years Large")
On Error GoTo 0

If myPict Is Nothing Then
'not on this sheet
Else
myPict.Delete
Range("F2").Value = ""
'exit for 'stop looking on other sheets??????
End If
End With
Next n
End Sub

Hi Patrick,

Private Sub testdelete()

'Clears Picture when changing the Year

'Application.ScreenUpdating = False

For n = 1 To Sheets.Count
If Sheets(n).Name <> "Holidays" Then
With Sheets(n)
Set myPict = Nothing
On Error Resume Next
Set myPict = .Pictures("New Years Large")
On Error GoTo 0

If myPict Is Nothing Then
'not on this sheet
Else
myPict.Delete
Range("F2").Value = ""
'exit for 'stop looking on other sheets??????
End If
End With
End If
Next n
End Sub

--
Regards,

OssieMac


"Patrick C. Simonds" wrote:

> Is there any way to amend this code so that it checks all sheets except the
> sheet named Holidays
>
>
> Private Sub testdelete()
>
> 'Clears Picture when changing the Year
>
> 'Application.ScreenUpdating = False
>
> For n = 1 To Sheets.Count
> With Sheets(n)
> Set myPict = Nothing
> On Error Resume Next
> Set myPict = .Pictures("New Years Large")
> On Error GoTo 0
>
> If myPict Is Nothing Then
> 'not on this sheet
> Else
> myPict.Delete
> Range("F2").Value = ""
> 'exit for 'stop looking on other sheets??????
> End If
> End With
> Next n
> End Sub
>
>

Private Sub testdelete()

'Clears Picture when changing the Year

'Application.ScreenUpdating = False

For n = 1 To Sheets.Count

With Sheets(n)
If Not .Name = "Holidays" Then 'add this line
Set myPict = Nothing
On Error Resume Next
Set myPict = .Pictures("New Years Large")
On Error GoTo 0

If myPict Is Nothing Then
'not on this sheet
Else
myPict.Delete
.Range("F2").Value = "" 'note the dot before Range
'exit for 'stop looking on other sheets??????
End If
End If 'add this line
End With
Next n
End Sub


Gord Dibben MS Excel MVP


On Mon, 1 Dec 2008 14:45:55 -0800, "Patrick C. Simonds"
<(E-Mail Removed)> wrote:

>Is there any way to amend this code so that it checks all sheets except the
>sheet named Holidays
>
>
>Private Sub testdelete()
>
>'Clears Picture when changing the Year
>
>'Application.ScreenUpdating = False
>
> For n = 1 To Sheets.Count
> With Sheets(n)
> Set myPict = Nothing
> On Error Resume Next
> Set myPict = .Pictures("New Years Large")
> On Error GoTo 0
>
> If myPict Is Nothing Then
> 'not on this sheet
> Else
> myPict.Delete
> Range("F2").Value = ""
> 'exit for 'stop looking on other sheets??????
> End If
> End With
> Next n
>End Sub