clear data of sheets except sheets named

Can someone provide me with VBA code that will clear all data off all sheets exc ept sheets names Sheet10 and Sheet 11

thank you
JagwarmanAsked:
Who is Participating?
 
Shanan212Commented:
Sub SelectSheet()
  Dim ws As Worksheet
  For Each ws In ActiveWorkbook.Worksheets

 If ws.Name <> "Sheet10" And ws.Name <> "Sheet11" Then
    Cells.Select
    Selection.ClearContents
    Range("A1").Select
End If
Next ws
MsgBox "Done!"

End Sub

Open in new window


Try this
0
 
Shanan212Commented:
Sub SelectSheet() 
  Dim ws As Worksheet 
  For Each ws In Worksheeets 
 if  ws.name <> "Sheet10" and ws.name <> "Sheet11" then
    Cells.Select
    Selection.Clearcontents
end if
Next ws 

End Sub 

Open in new window

0
 
JagwarmanAuthor Commented:
I am getting 'Variable not defined' ???
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.