Inserting text to certain cells
 

set rng = Columns(10).SpecialCells(xlconstants,xlNumbers)
for each cell in rng
if isempty(cell.offset(0,-2)) then
cell.offset(0,-1).Value = "ABCD"
end if
Next

if column J contains formulas, then change xlConstants to xlformulas

--
regards,
Tom Ogilvy

"Jeff Fink" wrote in message
...
I need help with the syntax of the macro.

I will explain what I am trying to do:
When Column J = 1
and Column H is (blank)
enter "Text" into Column H

Most of Column H when Column J = 1 is filled in, but for the ones that are
blank I want to automatically enter text into that cell.

Thanks,
Jeff Fink