change pivot data source automatic

hi,

need to ask if we can make like macro to change the pivot data source as our input.

let say in A1 we type :"data source" and in B1 is blank cell..

whatever sheet name we type in B1 then press a Button..then pivot table will refer to that B1 name (we could use white color in that area to make it invisible)

thanks