i agree with Solitaire, but if for some reason you really do need to declare invidual variables, and they're all of the same type you can do something like this with the syntax, which shortens the code you need to write.
Ex:
Dim Ad2, Ad3, Ad4, Ad5, Ad6 As Object