vba excel Range + Like

Возможно как то реализовать в vba такой код заменить

.Width = Range("Width_block_TopMain").Value

на

 .Width = Range("*" Like "*").Value

Спасибо