Macro - Unhide formula not migrating

I am creating a form which requires one row at a time to become unhidden via the use of a macro attached to a button.

The table has separate sections in which I will need to use this option.

I have the formula working for the first section, which I will refer to as section A, this spans from row 23 to row 50. However when I create another button and change the macro for the next section (Section B - Rows 56 to 83) and click the button it still unhides rows for the first table rather than the lower one.

Here are the macros I am using;


Section A

Sub UnhideNext()

Dim mRange(0.5) As Range

For x = b23 To b50
Set mRange(x) = ActiveSheet.Range(Cells((x * 23) + 1, 1), Cells((x + 50) * 50, 23))
Next

For x = 0 To UBound(mRange())
For Each mRow In mRange(0).Rows
If mRow.Hidden = True Then
mRow.Hidden = False
Exit For
End If
Next
Next

End Sub

Section B

Sub UnhideNext()

Dim mRange(0.5) As Range

For x = a56 To a83
Set mRange(x) = ActiveSheet.Range(Cells((x * 56) + 1, 1), Cells((x + 83) * 83, 56))
Next

For x = 0 To UBound(mRange())
For Each mRow In mRange(0).Rows
If mRow.Hidden = True Then
mRow.Hidden = False
Exit For
End If
Next
Next

End Sub

Any advice on this would be greatly appreciated

Why not:

Sub unhidenext1()
Rows("23:50").hidden = true
end sub
sub unhidenext2()
rows("56:83").hiden = true
end sub

Looks like your issue could be that both macros have the same name?

You name your macro with the sub command:

Sub UnhideNext()

If you have two macros with the same name this will create an error

Thanks so far. I have renamed the macros as follows however they still unhide columns in the same area:

xl.png

If anyone could help me further that'd be great - this is urgent!

What are you actually trying to do? Looking through your code

sub UnhideNext()

Dim mRange(0.5) As Range

For x = b23 To b50 'b23 and b50 will be set to variant variables. As you have not defined them they will be =0
Set mRange(x) = ActiveSheet.Range(Cells((x * 23) + 1, 1), Cells((x + 50) * 50, 23))
Next ' this will loop through repeatedly and only set myrange to mrange(b50), 
'the previous iterations of the loop will be overwritten. As b50 = 0, x = 0, 
'therefore cells(1,1),cells(250,23) will be selected. in your other code a83 
'will also be 0 and therefore will select the same cells.

'the below section can be replaced with mRange.cells.entirerow.hidden = true
For x = 0 To UBound(mRange())
For Each mRow In mRange(0).Rows
If mRow.Hidden = True Then
mRow.Hidden = False
Exit For
End If
Next
Next

End Sub