VBA Copy from WB to WB, decide which sheet to copy to.

[jakobt]

Have a workbook called WB_A (Active workbook) and a workbook: WB_B
Want to copy sheet1 (A1:currentregion) from WB_B to WB_A.

The sheet should be inserted:
If one of the sheets in WB_A is called TB* (*meaning any other character) it should be overwritten, and copied in from cell A1.

If there is no sheet called TB* then a new sheet should be inserted named "TB.

(This should be with a VBA code, as it is part of a bigger VBA code)

 

[ravishankar]

try

workbooks("wb_A.xlsx").worksheets("sheet1").usedrange.copy
For a = 1 to sheets.count
if left(sheets(a).name,2) = "TB" then
sheets(a).Range(A1").pastespecial
end if
next a
msgbox "complete"

Ravi shankar