This should get you started
Dim MyCheck As String
MyCheck = "USA"
MyRange = Cells(7, 2)
If MyCheck = MyRange Then
' code for copy here
End If
--
Information Hog
------------------------------------------------------------------------
Information Hog's Profile:
http://www.excelforum.com/member.php...o&userid=21508
View this thread:
http://www.excelforum.com/showthread...hreadid=397433