String input into active cell

[cmeier7]

Hey all,

This should be a quickie compared to some of the problems you're all dealing with. I am trying to input a text string disguised as a formula into an active cell. I have code:

Dim n As String, a As String, r As Integer, b As Inte
n = "Test_STEEL 5in" 
a = "C"
r = ActiveCell.Row
b = r - 1
 
ActiveCell.Value = "='" & n & "'!" & a & "" & b & ""

In this case, I want the below string in the active (selected) cell when the program runs.

='Test_STEEL 5in'!C8

I have also tried .Text .String and a couple others but those are giving me additional errors. Why isn't it taking? Thanks in advance!

 

[Burrgogi]

Why don't you try formatting your cells as text? Select your columns or rows whatever, right click, choose "format cells", > text. Then run your macro.

 

[Scott Huish]

How about this?

Sub test()
With ActiveCell
    .NumberFormat = "@"
    .Formula = "='Test_STEEL 5in'!" & Cells(.Row - 1, 3).Address(0, 0)
End With
End Sub