Sub MergeTest() Dim wsrng As Range Set wsrng = Sheets("sheet1").Range("A1:B4") Call MergeSameCell(wsrng) ' Note CALL IS NEEDED! End Sub
Welcome to FreeSoftwareServers Confluence Wiki
Overview
Content Tools
Welcome to FreeSoftwareServers Confluence Wiki
Sub MergeTest() Dim wsrng As Range Set wsrng = Sheets("sheet1").Range("A1:B4") Call MergeSameCell(wsrng) ' Note CALL IS NEEDED! End Sub