Unhide cells and columns in selected tabs

[VBANovice46]

Hi,

I've created a UserForm populated with the names of all the worksheets within the workbook. I want to unhide all cells and columns in the worksheets selected by the user when the 'OK' button is pressed but not sure how to go about this?

Thanks in advance

[ranman256]

instead of hiding all columns and cells, just hide the worksheet.

sheets("nameOfSheet").visible = false

[stnkynts]

If you want to unhide all columns and rows in all worksheets this is what you would do:

Please Login or Register  to view this content.

[VBANovice46]

Thanks both, this was the first thing I tried (as I've used the code before and it works perfectly), but i get an error saying 'Unable to set hidden property of the range class'?

[YasserKhalil]

Try this code that will unhide all rows and columns for visible sheets only

Please Login or Register  to view this content.

[VBANovice46]

Perhaps if I post the code I've currently got within the userform, that will help (there currently isn't any code for the "OK" as that's what I'm trying to create at the moment)

Option Explicit
Dim ws As Worksheet
Dim i As Integer
Dim counter As Integer
'Click Ok to unhide all cells & columns, then execute export of data into auto-loader worksheet
Private Sub CommandButton1_Click()

End Sub
'Click cancel to hide userform
Private Sub CommandButton2_Click()
UserForm1.Hide
End Sub
'Add Tab name from ListBox 1 to ListBox 2
Private Sub CommandButton3_Click()
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then ListBox2.AddItem ListBox1.List(i)
Next i
End Sub
'Single Select from ListBox1
Private Sub OptionButton1_Click()
ListBox1.MultiSelect = 0
ListBox2.MultiSelect = 0
End Sub
'Multiple Select from ListBox1
Private Sub OptionButton2_Click()
ListBox1.MultiSelect = 2
ListBox2.MultiSelect = 2
End Sub

'Select worksheets to populate Auto-load worksheet
Private Sub UserForm_Initialize()
For Each ws In ThisWorkbook.Worksheets
ListBox1.AddItem (ws.Name)
Next ws
End Sub
'Remove item from ListBox 2
Private Sub CommandButton4_Click()
counter = 0
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i - counter) Then
ListBox2.RemoveItem (i - counter)
counter = counter + 1
End If
Next i
End Sub

[stnkynts]

Please use code tags around submitted code, it makes it much easier to see.

In response, your code doesn't really help much as the responses you were given should solve your problem. I recommend submitting your actual workbook. There is probably some detail causing the issue which you are not able to observe and report.

[VBANovice46]

I've managed to solve this, see code below for anyone who might be having the same problem - thanks for the help all.

Please Login or Register  to view this content.