Managed to 'fix' it myself with some Power Googling :-)
Code:
Sub Table5OnwardSwap()
Application.ScreenUpdating = False
Dim tblcount As Integer
Dim tbl As Table
For tblcount = 5 To ThisDocument.Tables.Count
Set tbl = ThisDocument.Tables(tblcount)
If tbl.Style = "Bad Table 1" Then
tbl.Style = "Grid Table 4 - Accent 1"
tbl.ApplyStyleRowBands = False
End If
Next
Application.ScreenUpdating = True
Set tbl = Nothing
End Sub