I would like from any worksheet of my workbook to activate the macro below for sheet workings

but getting run time error 1004
unable to get the select property of range class

Can anyone assist


Sub rangea()



With ActiveWorkbook.Worksheets("WORKINGS").Range("A1").CurrentRegion.Select

End With


End Sub