Fabulous! Worked like a charm.

Many thanks!
Gary

"Frank Kabel" wrote in message
...
Hi
try
Sub detect_data()
dim rng as range
dim cell as range
If WorksheetFunction.CountA(Range("B:B")) = 0 Then
MsgBox "Please enter data", vbOKOnly, "Alert!"
Exit Sub
End If
On Error Resume Next
set rng = Range("B:B").SpecialCells(xlCellTypeConstants)
On Error GoTo 0
if rng is nothing then exit sub
for each cell in rng
cell.offset(0,1).value="your_text"
next
End Sub

--
Regards
Frank Kabel
Frankfurt, Germany


Gary wrote:
I have a script I acquired from a website, slightly modified, but
still need help. The following script places the text "formula here"
in every cell (in column B) where there exists an entry. What I would
like to do is place the text in the cell to the right of where an
entry exists. In otherwords the text "formula here" would fall under
column C in every row there exists an entry in column B. I tried
using the OFFSET command within the script but with no success.

I might add the the range of entries in column B will change from
time to time. For example there may be entries in the first 10 rows
whereas another time there may be entries in the first 5000 rows.
The first row will always serve as a header.

Any suggestions?
Thanks,
Gary


Sub detect_data()
If WorksheetFunction.CountA(Range("B:B")) = 0 Then
MsgBox "Please enter data", vbOKOnly, "Alert!"
Exit Sub
End If
On Error Resume Next
Range("B:B").SpecialCells(xlCellTypeConstants) = "formula here"
On Error GoTo 0
End Sub