VBA to find text in specific format in a workbook

I am looking for code to find text in a specific format with in a workbook. The code would be

If cell() like "####-#[A,B,C]*" then

if I wanted to search every cell, but I am hoping there is a quicker way using worksheet.find(). ex:

ActiveSheet.Cells.Find(What:="####-#[S]*").Address

Thanks for any help,
H