hide column and clear contents based on a cell value in another sheet

I have a workbook with two sheets of data. I want to hide column B of Sheet2 and clear contents of range B2:B50 if the value in A1 of Sheet1 is "a". Can anyone help me with the code?

Hello dittotharappel,

Sub HideAndClear()

  If Worksheets("Sheet1").Range("A1").Value = "a" Then
     Worksheets("Sheet2").Range("B2:B50").ClearContents
     Worksheets("Sheet2").Columns("B").Hidden =True
  End If

End Sub