Hey

Private Sub UserForm_Initialize()
  tbID.Value = ActiveCell.Row
  tbName = ActiveCell.Value
  cboRegion = ActiveCell.Offset(0, 1).Value

'Populates the Boxes on form load
r = ActiveCell.Row
txtcompanyname.Value = Cells(r, "A")

cboRegion.Value = Cells(r, "B")
TxtNameContact.Value = Cells(r, "C")
TxtFaxNumber.Value = Cells(r, "D")
TxtPhNumber.Value = Cells(r, "E")
TxtAddress1.Value = Cells(r, "F")
TxtAddress2.Value = Cells(r, "G")
TxtSuburb.Value = Cells(r, "H")
TxtCity.Value = Cells(r, "I")
TxtPostcode.Value = Cells(r, "J")
Txtemailaddress.Value = Cells(r, "K")
If Range(Cells(r, "A"), Cells(r, "A")).comment Is Nothing Then
Exit Sub
Else
txtcomment.Value = Range(Cells(r, "A"), Cells(r, "A")).comment.Text
End If
End Sub
The form loads when i double click... however it only works in column A. When i do it in anyother column an error appears... anyone have any ideas why?

Thanks