Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Checking all sheets except 1
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Checking all sheets except 1
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Checking all sheets except 1
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" 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Checking numbers across various sheets | Excel Worksheet Functions | |||
Checking names on correct line across sheets | Excel Worksheet Functions | |||
Checking a number of sheets | Excel Worksheet Functions | |||
checking visible sheets. | Excel Programming | |||
checking multiple sheets. | Excel Programming |