Form referring to a module

[Pauljj]

This is complicated to explain, so bear with me please

I have a for next loop set up as follows

For j = 2 To LastRow Step 1
  
  a = Cells(j, 53)
  
  If a = "1" Then
  
  tcsorting.Show
  
  Else
  
  Cells(j, 8) = Cells(j, 53)
  

  End If
  
  Next

If A = 1 then a form called tc sorting will display

In this form the user selects a location, this location then must be dumped on the row number......defined by J

But when it moves to the form it no longer recognises J

Private Sub CommandButton1_Click()

Dim j As Integer



Cells(j, 8) = travelcentre.Text


End Sub

Any ideas please ?

Thanks

 

[Fluff]

How about

For j = 2 To LastRow Step 1
  
  a = Cells(j, 53)
  
  If a = "1" Then
  tcsorting.Tag=j
  tcsorting.Show
  
  Else
  
  Cells(j, 8) = Cells(j, 53)
  

  End If
  
  Next

and then

Private Sub CommandButton1_Click()





Cells(Me.Tag, 8) = travelcentre.Text


End Sub