ваша переменная имеет тип B, поэтому вызывается функция B. Чтобы позвонить D, вам нужно либо объявить свою переменную как D, либо записать в D.
Заменить:
Set WsAcc = Trim(Sheets("Account Input").Range("B8").Value) & "_ACC"
на:
Set WsAcc = Sheets(Trim(Sheets("Account Input").Range("B8").Value) & "_ACC")