Calling a worksheet using ThisWorkBook instead of Worksheets("Name")

[qarbiq]

Can someone please help me with the following issue that I have please ?</SPAN>

I am trying to change the way these comments out codes are made, changing the code to Thisworkbook style, ( I do not want to use the reference where it uses the name like “DATA” , etc. so here is what I wrote instead. but it’s not working , can someone tell me what I am doing wrong ? Is there any other better way to call a sheet except Thisworkbook and Worksheet ?</SPAN>


ThisWorkbook.Sheets(5).Active</SPAN>
ThisWorkbook.Sheets(1).Visible = xlVeryHidden</SPAN>
ThisWorkbook.Sheets(2).Visible = xlVeryHidden</SPAN>
ThisWorkbook.Sheets(3).Visible = xlVeryHidden</SPAN>
ThisWorkbook.Sheets(4).Visible = xlVeryHidden</SPAN>
ThisWorkbook.Sheets(5).Visible = xlSheetVisible</SPAN>

‘ ActiveWorkbook.Worksheets("RequestorStatus").Activate</SPAN>
'Worksheets("RequestorForm").Visible = xlVeryHidden</SPAN>
'Worksheets("Data").Visible = xlVeryHidden</SPAN>
'Worksheets("RequestorStatus").Visible = xlSheetVisible</SPAN>
'Worksheets("AssigneeForm").Visible = xlVeryHidden</SPAN>
'Worksheets("Main Page").Visible = xlVeryHidden</SPAN>

 

[CSyx]

While in the VB Editor...In the properties window change the name of the sheet and use the name directly in your code.


RequestorForm.Visble = xlVeryHidden
Data.Visible = xlVeryHidden

etc.