On Jul 20, 4:07*pm, Howard31
wrote:
Hi there,

Copy and paste the following:

Sub HighlightAndCopy()
* * Dim sht As Worksheet, i As Long
* * Set sht = ThisWorkbook.Worksheets("Sheet1")

* * With sht
* * * * For i = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
* * * * * * If .Cells(i, 7) = "" Then
* * * * * * * * With .Rows(i)
* * * * * * * * * * .Font.Bold = True
* * * * * * * * * * .Copy
* * * * * * * * * * .PasteSpecial Paste:=xlPasteValues
* * * * * * * * End With
* * * * * * End If
* * * * Next i
* * * * Application.CutCopyMode = False
* * End With
End Sub
--
A. Ch. Eirinberg



"SHimmelrich" wrote:
I've got the following code that does select the correct row and bolds
it, but it's not doing the copy and paste special.....can anyone help
me out on this?

* * For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
* * * * If Cells(i, 7) = "" Then
* * * * * * Rows(i).Select
* * * * * * Selection.Font.Bold = True
* * * * * * Selection.Copy
* * * * * * Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
* * * * * * :=False, Transpose:=False

* * * * End If
* * Next i- Hide quoted text -

- Show quoted text -

Thank you!