Have problem in Manipulating Workbook Object and make macro shortest as possible

[Irmann]

hai and hello everyone,

1) I have done the macro that can automatically pull data between 2
sheet in the same workbook. The example below, just compare 2 cell and
then pull the 4 data to other sheet if true. If i have 100++ data to
compare between 2 sheet or workbook, it make my macro become unwieldy
as the number of tests to make gets larger. Can anyone help me to solve
this problem, make it (my macro) shortest as possible......


The macro is like this:-


Sub PullData()



If Worksheets("sheet1").Range("C2").Value =
Worksheets("sheet2").Range("C2").Value Then

Worksheets("sheet1").Range("D2").Value = Worksheets("sheet2"). _
Range("D2").Value
Worksheets("sheet1").Range("E2").Value = Worksheets("sheet2"). _
Range("E2").Value
Worksheets("sheet1").Range("F2").Value = Worksheets("sheet2"). _
Range("F2").Value
Worksheets("sheet1").Range("G2").Value = Worksheets("sheet2"). _
Range("G2").Value
Else

Worksheets("sheet1").Range("D2:E2:F2:G2").Value = ""

End If

If Worksheets("sheet1").Range("C3").Value = Worksheets("sheet2"). _
Range ("C3").Value Then


Worksheets("sheet1").Range("D3").Value = Worksheets("sheet2"). _
Range("D3").Value
Worksheets("sheet1").Range("E3").Value = Worksheets("sheet2"). _
Range("E3").Value
Worksheets("sheet1").Range("F3").Value = Worksheets("sheet2"). _
Range("F3").Value
Worksheets("sheet1").Range("G3").Value = Worksheets("sheet2"). _
Range("G3").Value

Else

Worksheets("sheet1").Range("D3:E3:F3:G3").Value = ""

End If

End Sub


2) The example that i given to you is compare between 2 sheet in same
workbook. Can anyone out there teach me how to compare between 2
workbook. Plz.... t.q