Sorry, I must not be explaining this well or I don't understand. I have an
example of a Macro that I want, but I don't know how to adjust it. I just
want to change the column it looks at. Here it is:
Sub Cusip()
'
' Cusip Macro
' Macro recorded 2/21/2008 by User
'
Dim wsSheet As Worksheet
Dim rFound As Range
Dim strFind As String
Dim iRow As Integer
Dim iCol As Integer
strFind = InputBox(Prompt:="Enter CUSIP")
If strFind = "" Then Exit Sub
For Each wsSheet In ThisWorkbook.Worksheets
'wsSheet.Range("K:K").EntireColumn.Hidden = True
Set rFound = wsSheet.UsedRange. _
Find(What:=strFind, LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False)
If Not rFound Is Nothing Then
Application.Goto rFound, Scroll:=True
'wsSheet.Range("K:K").EntireColumn.Hidden = False
iRow = ActiveCell.Row
'iCol = ActiveCell.Column
'Cells(iRow, 0).Select
'Range(iRow, 0).Select
Range(Selection, ActiveCell.Offset(0, -1)).Select
End
End If
'wsSheet.Range("K:K").EntireColumn.Hidden = False
Next wsSheet
MsgBox "No match"
End Sub