I get the above error when running my macro on the Sheet8.Paste line. Any one know why. I can't figure it out. Any help is appreciated.
If IsNumeric(CellBD5) Then
MetricsCounter = CellBD5
Else
MetricsCounter = 0
End If
If (MetricsCounter < 8#) Then
Sheet8.Select
Sheet8.Range("AB27:AO27,AB28:AO28").Select
Sheet8.Paste
Sheet8.Range("X27:AA27,X28:AA28,AK15:AO15").ClearContents
End If
Else
Sheet8.Visible = False
End If
If IsNumeric(CellBD5) Then
MetricsCounter = CellBD5
Else
MetricsCounter = 0
End If
If (MetricsCounter < 8#) Then
Sheet8.Select
Sheet8.Range("AB27:AO27,AB28:AO28").Select
Sheet8.Paste
Sheet8.Range("X27:AA27,X28:AA28,AK15:AO15").ClearContents
End If
Else
Sheet8.Visible = False
End If