Hi people,
Could do with some help here if possible. I am getting a Type Mismatch on the following code...
Sub tidy_Up()
Sheets(" XP Deployment Schedule").Select
rowno = 2
While Cells(rowno, 1) <> ""
If Cells(rowno, 27) = 0 Then Cells(rowno, 27) = ""
If Cells(rowno, 28) = 0 Then Cells(rowno, 28) = ""
If Cells(rowno, 29) = 0 Then Cells(rowno, 29) = ""
If Cells(rowno, 29) > 1 Then Cells(rowno, 29) = ""
'Cells(rowno, 26).Select
Range("AA" & rowno & ":AD" & rowno).Interior.ColorIndex = Range("Z" & rowno).Interior.ColorIndex
rowno = rowno + 1
Wend
Range("AA2:AD" & rowno).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Cells.Select
With Selection
.WrapText = False
End With
Range("A2").Select
End Sub
Can anyone see a problem with this or does it really depend on the rest of the code? There is too much to post, but this is the sub that it appears to be failing on.
I would really appreciate your help...
Thanks
Patrick
Visit my site:
http://www.drybonesuk.com
Type Mismatch
