Merge Range of Cells

[chini2105]

Hi, I have been trying to merge a range of cells.

I have tryed with .Merge & .MergeCells and it keeps telling me there is an error

LastRow = Cells(Rows.Count, "D").End(xlUp).Row
If LastRow > 2 Then
Range(Cells(2, 2), Cells(LastRow, 2)).MergeCells = True
Range(Cells(2, 3), Cells(LastRow, 3)).MergeCells = True
End If

Thanks in advance

 

[shg]

What error?

Works fine for me ...

 

[chini2105]

What error?

Works fine for me ...

I don't know why is not working.

It shows me the Error '1004

Something about a shared book of commands not being available

 

[shg]

Among other things, you can't merge cells in a shared workbook. See https://support.office.com/en-us/ar...11a-86de-2bd20a3ae464&ui=en-US&rs=en-US&ad=US

 

[chini2105]

Among other things, you can't merge cells in a shared workbook. See https://support.office.com/en-us/ar...11a-86de-2bd20a3ae464&ui=en-US&rs=en-US&ad=US

Thank you for the information! :D

 

[shg]

You're welcome.