Knowing which is the activesheets?

[gheyman]

I have too many UserFroms

Im trying to launch coded (by button on a from) and the code thats run depends on the active sheet.

Sub Activesht()
If ActiveSheet = "Resources by WBS" Then
Range("D1").Value = "8"
End If
End Sub

Activesheet name is Resources by WBS

 

[MrKowz]

Try:

Sub Activesht()
If ActiveSheet[B][COLOR=red].Name [/COLOR][/B]= "Resources by WBS" Then
Range("D1").Value = "8"
End If
End Sub