Find specific cell, then dim its value as string

Originally Posted by JOHN H. DAVIS

Perhaps:

Sub ks100zzaazzz()
Dim x As String
Application.ScreenUpdating = False
Cells(1, 1).Select
Do Until ActiveCell.Value = "Quantity"
    If ActiveCell.Column > ActiveSheet.UsedRange.Columns.Count Then Exit Do
    ActiveCell.Offset(, 1).Select
Loop
x = ActiveCell.Offset(2).Value
Application.ScreenUpdating = True
End Sub

Perfect, thank you