Dear all,

i'm new to vba what is wrong in below code.
please help.

Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+y
If sheetactive.visuble = True Then
sheetactive.visuble = xlVeryHidden
Else
sheetactive.visuble = xlVeryHidden
End If

End Sub