I won't write code for exactly what you need but I have got similar example.
Sub CheckList()
Sheet1.Cells(1, 1) = "Text1" 'Set text in Sheet1
Sheet2.Cells(1, 1) = "Text1" 'Set Text in Sheet2
Dim sValueFromSheet1 As String
Dim sValueFromSheet2 As String
sValueFromSheet1 = Sheet1.Cells(1, 1) 'Get Value of Cell A1 on sheet1
sValueFromSheet2 = Sheet2.Cells(1, 1) 'Get value from list on sheet2
If sValueFromSheet1 = sValueFromSheet2 Then
Sheet1.Activate
'This will delete 1st Row
Rows("1:1").Select
Selection.Delete Shift
Range("A1").Select
End If
' Now for your question you will have to write your own code
' to do what you want to. I can't do everything for you.
'
' Hope this example helps you.
End Sub
- Stop thinking in terms of limitations and start thinking in terms of possibilities -