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:

Please Login or Register  to view this content.

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

You name your macro with the sub command:

Please Login or Register  to view this content.

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

Please Login or Register  to view this content.