Find Call procedure code within module list

[ipbr21054]

I wish to find where the code is for Call procedures.

For these Example.

@RoryA I did look through some old posts but didnt find what you advised.
Something like but isnt Shift Control F5 etc etc,please advise again & this time i will make a note of it Thanks

Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
On Error GoTo End_here
Call add_val("LOST")
Call add_val("DELIVERED NO SIG")
Call add_val("RETURNED")
Call add_val("UNKNOWN")
End_here: Application.ScreenUpdating = True
End Sub

 

[RoryA]

It's Shift+f2:

 

[ipbr21054]

Hmmm,
I click withing the Call text & do as advised but i see this.

 

[RoryA]

Where exactly was the cursor?

 

[ipbr21054]

In between a & l

 

[RoryA]

Which a and l - in Call, or in add_val? The former won't work.

 

[ipbr21054]

No within the Call

 

[ipbr21054]

So i found another Call procedure that i use & it worked.
So using this below i clicked After the L & before the H

Call Hidden

When i do it for the code in previous post i am just taken to the procedure code of which is shown below, but i dont understand why as i dont see the point of that ?


I was expecting to have a module open so i could look at the code within

Private Function add_val(A As String)
   
      Dim r As Range, f As Range, Cell As String, added As Boolean
      Dim sh As Worksheet
     
      Set sh = Sheets("POSTAGE")
      sh.Select
      With ListBox1
       
        .ColumnCount = 5
        .ColumnWidths = "170;260;220;130;30"

        Set r = Range("A2183", Range("G" & Rows.count).End(xlUp)) ' THIS IS THE ROW NUMBER TO SEARCH DOWN FROM
       
        Set f = r.Find(A, LookIn:=xlValues, LookAt:=xlPart)
        If Not f Is Nothing Then
          Cell = f.Address
          Do
            added = False
            For i = 0 To .ListCount - 1
              Select Case StrComp(.List(i), f.Value, vbTextCompare)
                Case 0, 1
              .AddItem f.Value, i                 'POSTAL ISSUE COLUMN
              .List(i, 1) = f.Offset(, -5).Value  'CUSTOMER
              .List(i, 2) = f.Offset(, -4).Value  'ITEM
              .List(i, 3) = f.Offset(, -6).Value  'DATE
              .List(i, 4) = f.Row                 'ROW
              added = True
              Exit For
          End Select

            Next
            If added = False Then
          .AddItem f.Value                                 'POSTAL ISSUE COLUMN
          .List(.ListCount - 1, 1) = f.Offset(, -5).Value  'CUSTOMER
          .List(.ListCount - 1, 2) = f.Offset(, -4).Value  'NAME
          .List(.ListCount - 1, 3) = f.Offset(, -6).Value  'DATE
          .List(.ListCount - 1, 4) = f.Row                 'ROW
        End If

            Set f = r.FindNext(f)
          Loop While Not f Is Nothing And f.Address <> Cell
        Else
        End If
      End With
End Function

 

[RoryA]

You can't view the code for Call since that's part of VBA. It is supposed to take you to the code for add_val, which it will do as long as the cursor is in the word add_val

 

[ipbr21054]

Strange as it worked on the another,anyway this will be good to use.

So my post is to see what code is behind the Call.
I was looking to then be taken to one on the left.

I dont see anything in that procedure which shows LOST, DELIVERED etc etc so thats what im looking for