VBA code to input function adjacent to each non-blank cell

[markgoolsbay]

Hello,

I'm new to VBA and can't find a workable solution to my issue.

I'm trying to insert my custom function adjacent (0,1) to each non-black cell on a worksheet. So if I have a string in cell D3, it will insert MyFunction() into cell E3. And loop through to do this for every non-blank cell in this worksheet.

Any help would be great!!

Mark

 

[NdNoviceHlp]

Beside each blank cell in the whole worksheet? Here's an example of inserting a formula in the blank cells for the used range. HTH. Dave

Dim r As Range
For Each r In Sheets("sheet1").UsedRange
If r.Value = vbnullsting Then
r.Offset(rowOffset:=0, columnOffset:=1) = "=(A2)"
End If
Next r