Very Easy ActiveWorksheet question

[lhernandez]

For some reason I am having problems checking if a sheet is active
What I would like to do is as follows:
If Sheet1 = activeworksheet then
clear contents
end if

if Sheet2 is active then
clear (A1:D1)
end if

Can someone help me out on this simple task that I cannot get please
thank you

 

[Norie]

Try this.

Select Case ActiveSheet.Name
     Case "Sheet1"
          ActiveSheet.Cells.ClearContents
     Case "Sheet2"
          ActiveSheet.Range("A1:D1").ClearContents
End Select

 

[patrickmuldoon99]

Hi lhernandez

You could use a select case statement on the activesheets name

Select Case Activesheet.name
case "Sheet1"
   'do your thing here
case "Sheet2"
  ' do something else here
case else
'   do stuff here that isnt satisfied by earlier conditions
end select

HTH

Patrick


Edit: Sorry, Norie got there first!!

 

[JamieDuncan]

try putting this code into sheet1 code

Private Sub Worksheet_Activate()
    Cells.ClearContents
End Sub

and this in sheet2 code

Private Sub Worksheet_Activate()
    Range("A1:D1").ClearContents
End Sub

 

[lhernandez]

the case for sheet1 will work, but not for sheet2.

 

[Norie]

the case for sheet1 will work, but not for sheet2.

How won't it work?

 

[lhernandez]

thank you for the suggestions, it works now! :D