Clear Content of blank cells in a column

[ActorExcelChamp12]

I want to clear content of blank cells (equal to "") from column C of "Sheet2".
The column has header rows till row 5 - so any blank cell below row 5 I want to clear content. The no. of rows may vary each time.

Please could someone help.

 

[ActorExcelChamp12]

I want to clear content of blank cells (equal to "") from column C of "Sheet2".
The column has header rows till row 5 - so any blank cell below row 5 I want to clear content. The no. of rows may vary each time.

Please could someone help.

I am looking for a simple VBA code to do this. Thanks

 

[Fluff]

Do you mean that col C has a formula & if it returns "" then remove the formula?

 

[ActorExcelChamp12]

Do you mean that col C has a formula & if it returns "" then remove the formula?

Yes that's correct. When I run Isblank() to cells with "" it is coming back as false. I want to ensure cells are truly blank by clearing the content

 

[Fluff]

Ok, how about

Sub ActorExcel()
   Dim Cl As Range
   For Each Cl In Range("C6", Range("C" & Rows.Count).End(xlUp))
      If Cl.Value = "" Then Cl.ClearContents
   Next Cl
End Sub

 

[ActorExcelChamp12]

Ok, how about

Sub ActorExcel()
   Dim Cl As Range
   For Each Cl In Range("C6", Range("C" & Rows.Count).End(xlUp))
      If Cl.Value = "" Then Cl.ClearContents
   Next Cl
End Sub

Thanks how do I ensure this VBA code looks at Sheet2 rather than Sheet1 in the active workbook?

 

[Fluff]

How about

Sub ActorExcel()
   Dim Cl As Range
   With Sheets("Sheet2")
      For Each Cl In .Range("C6", .Range("C" & Rows.Count).End(xlUp))
         If Cl.Value = "" Then Cl.ClearContents
      Next Cl
   End With
End Sub

 

[ActorExcelChamp12]

How about

Sub ActorExcel()
   Dim Cl As Range
   With Sheets("Sheet2")
      For Each Cl In .Range("C6", .Range("C" & Rows.Count).End(xlUp))
         If Cl.Value = "" Then Cl.ClearContents
      Next Cl
   End With
End Sub

Thanks so much. Have a great day

 

[Fluff]

You're welcome & thanks for the feedback.