VBA .SpecialCells(xlCellTypeVisible).Copy Function

[joan1211]

My code below keeps error and there isn't any visible mistake, please help.. Thanks

wb2.Sheets(1).Range(Trim(Arr2(0)) & FoundCell3 & ":" & Trim(Arr2(UBound(Arr2))) & FoundCell4).SpecialCells(xlCellTypeVisible).Copy

 

[RoryA]

What is the error message? That syntax is fine, so it must be a run-time problem.

 

[joan1211]

The error displayed is

Run-time error '1004':
You cannot use this command on a protected sheet. To use this command, you must first unprotect the sheet (Review tab, Changes group, Unprotect Sheet button). You may be prompted for a password.

However, the fact is that I can run my other codes using above method but when comes to the line, it shows error.

 

[RoryA]

Have you tried unprotecting the sheet first, like the message says, then reprotecting it after the copy?