Why is this getting an error? It says that the 'public' line is creating a
compiler error -- it's an invalid attribute in the sub.

Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Public Z As Workbook


Z = ActiveWorkbook.Name