Microsoft Visual Basic Run-time error '1004' No cells were found

[gdramireddy]

Hi ,
i am trying to copy the cells and past into other cells, In that some cells are hide and i dont want to copy that cells. i am using bellow code for that.
but i am getting error No cells were found.

Windows(WorkBookName2).Activate
Sheets("MR-CFR&DOT").Select
Range("A9:A27").SpecialCells(xlCellTypeVisible).Copy
Windows(WorkBookName1).Activate 'this is another work book
Sheets("KPI").Select
Range("A47:A51").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

My record details are like that

i have A9 : A27 but i want copy only A9,A23,A25,A26,A27

Pls help me

Thanks,

 

[Andrew Poulsom]

Welcome to Mr Excel.

Are you sure that there are some visible cells in that range? Excel thinks not, and I'm sure it's not lying..