Good Afternoon All,

I have a macro that excludes a certain page from the Clear code I'm using
below. I now have a second page named "Front Page 2" that I am also looking
to exclude from this function.

After several feeble attempts to modify and add "Front Page 2" to this code,
I've been unsuccessful and was wondering if someone had an idea that would
enable this request.


Thanks so much in advance - Jenny B.


Sub Clear()
For Each Ws In Worksheets
If Ws.Name <> "Front Page" Then
Application.ScreenUpdating = False
Ws.Activate
Dim RangeClear As Range
Set RangeClear = Range("a:IV")
RangeClear.ClearContents
Range("A1").Select
ActiveCell.FormulaR1C1 = "0"
Sheets("Front Page").Select
End If
Next
Application.ScreenUpdating = True
End Sub

Option Explicit
Sub Clear()
'Dim RangeClear As Range 'don't need this anymore
Dim ws As Worksheet
For Each ws In Worksheets
Select Case LCase(ws.Name)
Case Is = lcase("front page"), lcase("front page 2")
'skip it
Case Else
ws.Cells.ClearContents
ws.Range("A1").Value = 0 'or "0"?
End Select
Next ws
End Sub

You may decide to avoid all the "front page #" worksheets:

Option Explicit
Sub Clear()
Dim ws As Worksheet
For Each ws In Worksheets
If LCase(Left(ws.Name, 10)) = LCase("front page") Then
'skip it
Else
ws.Cells.ClearContents
ws.Range("A1").Value = 0 'or "0"?
End If
Next ws
End Sub




Jenny B. wrote:
>
> Good Afternoon All,
>
> I have a macro that excludes a certain page from the Clear code I'm using
> below. I now have a second page named "Front Page 2" that I am also looking
> to exclude from this function.
>
> After several feeble attempts to modify and add "Front Page 2" to this code,
> I've been unsuccessful and was wondering if someone had an idea that would
> enable this request.
>
> Thanks so much in advance - Jenny B.
>
> Sub Clear()
> For Each Ws In Worksheets
> If Ws.Name <> "Front Page" Then
> Application.ScreenUpdating = False
> Ws.Activate
> Dim RangeClear As Range
> Set RangeClear = Range("a:IV")
> RangeClear.ClearContents
> Range("A1").Select
> ActiveCell.FormulaR1C1 = "0"
> Sheets("Front Page").Select
> End If
> Next
> Application.ScreenUpdating = True
> End Sub

--

Dave Peterson

Good Morning,

Thank you Dave. Both are teffific solutions to accomplish the same objective.

Thanks once again for your prompt response and great advice - Jenny B.

"Dave Peterson" wrote:

> Option Explicit
> Sub Clear()
> 'Dim RangeClear As Range 'don't need this anymore
> Dim ws As Worksheet
> For Each ws In Worksheets
> Select Case LCase(ws.Name)
> Case Is = lcase("front page"), lcase("front page 2")
> 'skip it
> Case Else
> ws.Cells.ClearContents
> ws.Range("A1").Value = 0 'or "0"?
> End Select
> Next ws
> End Sub
>
> You may decide to avoid all the "front page #" worksheets:
>
> Option Explicit
> Sub Clear()
> Dim ws As Worksheet
> For Each ws In Worksheets
> If LCase(Left(ws.Name, 10)) = LCase("front page") Then
> 'skip it
> Else
> ws.Cells.ClearContents
> ws.Range("A1").Value = 0 'or "0"?
> End If
> Next ws
> End Sub
>
>
>
>
> Jenny B. wrote:
> >
> > Good Afternoon All,
> >
> > I have a macro that excludes a certain page from the Clear code I'm using
> > below. I now have a second page named "Front Page 2" that I am also looking
> > to exclude from this function.
> >
> > After several feeble attempts to modify and add "Front Page 2" to this code,
> > I've been unsuccessful and was wondering if someone had an idea that would
> > enable this request.
> >
> > Thanks so much in advance - Jenny B.
> >
> > Sub Clear()
> > For Each Ws In Worksheets
> > If Ws.Name <> "Front Page" Then
> > Application.ScreenUpdating = False
> > Ws.Activate
> > Dim RangeClear As Range
> > Set RangeClear = Range("a:IV")
> > RangeClear.ClearContents
> > Range("A1").Select
> > ActiveCell.FormulaR1C1 = "0"
> > Sheets("Front Page").Select
> > End If
> > Next
> > Application.ScreenUpdating = True
> > End Sub
>
> --
>
> Dave Peterson
>