Hi,
Been trying all afternoon to sort this out
Here's my code:
Works until in can't find the strContactType - Tried with Error Handling (Removed for Code Posting) to no avail.
Any Idea's Please...!!
Been trying all afternoon to sort this out
Here's my code:
Code:
Sheets("Sheet1").range("B5:M7").ClearContents
For irow = 5 To 7
Sheets("Sheet1").Select
strContactType = Cells(irow, 1).Value
For icol = 2 To 13
Sheets("Sheet1_Data").Select
Cells(1, 1).Select
Cells.Find(What:=strContactType, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
iDataVal = ActiveCell.Offset(0, icol - 1).Range("a1").Value
Sheets("Sheet1").Cells(irow, icol).Value = iDataVal
Next
Next
Works until in can't find the strContactType - Tried with Error Handling (Removed for Code Posting) to no avail.
Any Idea's Please...!!